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The 8-Bit Subroutine package is a group of user-callable subroutines for processing 8-bit data on the CONTROL 
DATA® CYBER 70 Models 72, 73, and 74 and 6000 Series computers. The subroutines are accessed by 
FORTRAN CALL and COBOL ENTER statements and by COMPASS return jump instructions. No modification 
to FORTRAN Extended, COBOL, or COMPASS is required. 


1 


Input/output operations are under the control of Record Manager for all the subroutines except COPY8P. A 


nowledge of Record Manager and FORM (File Organizer and Record Manager) is desirable. A general know¬ 


ledge of character sets, IBM files (record types and blocking formats), and CDC files is essential, 
knowledge of COBOL or FORTRAN and hexadecimal notation. 


V/e assume 
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This reference manual makes numerous references to the SCOPE 3.4 operating system and illustrates some of 
its features. Users of KRONOS 2.1 will notice significant differences between SCOPE and KRONOS in the 
following areas: 


,r* #r 


Use of nT parameter on SCOPE 3.4 job card 


Use of ACCOUNT card following KRONOS 2.1 job card 






Use of RESOURCE card in KRONOS 2.1 jobs when more than one tape is required 


Differences in REQUEST card syntax and parameters 


i 


Differences in DISPOSE card syntax and parameters 

Differences in the definition and use of flag cards for reading SCOPE 3.4 free-form binary cards versus 
KRONOS 2.1 literal input 

KRONOS 2.1 requirement to punch columns 79-80 of job card to select IBM 026 or 029 punch code 
interpretation 

Use of an extended print file in conjunction with SCOPE 3.4 usage of 595-6 print train; such capacity 
does not exist in KRONOS 2.1 
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Each of these differences should be resolved by referring to either the SCOPE 3.4 or KRONOS 2.1 operatin 
system reference manuals. 
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This reference manual deals only with the manipulation of files; the opening and closing of the files is done 
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The following CDC publications may be of interest to the user: 


Publication Number 




SCOPE 3.4 Reference Manual 


60307200 


60407000 


KRONOS 2.1 Reference Manual 


60305601 


FORTRAN Extended Reference Manual 


60384100 


COBOL Reference Manual 
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60360900 


COMPASS Reference Manual 


Record Manager File Organization User’s Guide 


60359600 


60307300 


Record Manager Reference Manual 


60307000 


FORM Reference Manual 
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60344200 


CYBER LOADER 




The following IBM publications may be of value when it is necessary for the user to understand the nature of 
the file data being processed by the 8-bit subroutines: 
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IBM 360/370 FORTRAN IV Programmer’s Guide 
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IBM 360/370 ANSI COBOL Programmer’s Guide 
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IBM 360/370 PL/I Programmer’s Guide 
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CDC manuals can be ordered from Control Data Literature Distribution Services, 
8001 East Bloomington Freeway, Minneapolis, Minnesota 


55420. 




This product is intended for use only as described in this 
document. Control Data cannot be responsible for the 
proper functioning of undescribed features or parameters. 
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INTRODUCTION 




Programmers using either COMPASS, COBOL, or FORTRAN Extended may use the 8-bit subroutines described 
in this reference manual to perform any of the following three functions: 

To convert IBM 360/370 sequential 8-bit tape or card files to CDC internal format, maintaining 8-bit 
significance where necessary. 




To perform data moves, comparisons, packing, and expanding of the converted data in which 8-bit signi¬ 
ficance has been maintained. 


To copy an IBM 360/370 print file to a 595-6 extended print file, under SCOPE, maintaining upper and 
lower case characters. Printing of such a file requires the use of the 95-character ASCII character set 

available in the CDC 595-6 print train. Use of an extended print file with the 595-6 print train is not 
available under KRONOS. 


EBCDIC is the Extended Binary Coded Decimal Information Code developed by IBM to represent a set of 
256 characters. It is an 8-bit code used in sequential 8-bit tape files produced on IBM 360/370 computer 
systems. A complete listing of the EBCDIC character set appears on page A-6 


ASCII is the American Standard Code for Information Interchange. It is an 8-bit code representing a prescribed 
set of 128 characters. The full ASCII character set appears in table A-5. A standard 64-character subset of 
ASCII has been adopted by Control Data Corporation to comply with Federal regulations and appears on page 
A-4. It is a 6-bit code that can be used on existing 6-bit equipment and software systems. 




Display code is a 6-bit code established for the representation of a 64-character set on external display devices, 
such as line printers and cathode ray tube display units. A list of display codes in octal form with corresponding 

graphics appears on page A-7. 


IBM 360/370 8-bit sequential tape files may contain: 


EBCDIC character string data 


ASCII character string data 


Bit stream data 


Arithmetic data in IBM format 

Such tape files may be in any one of the record/block format types described in appendix B. A full description 
of IBM arithmetic data appears in appendix C. 


1-1 
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The internal CDC format used in conjunction with the 8-bit subroutines may contain the following data types: 


6-bit display code character string data 


12-bit ASCII character string data 


j: 


12-bit EBCDIC character string data 


Bit stream data 


Arithmetic data in CDC format 


The 12-bit ASCII and EBCDIC data format is unique to 8-bit subroutines. Both 12-bit data formats and CDC 
format arithmetic data are defined in appendix D. 

An IBM 360/370 print file is written entirely in either 8-bit ASCII or 8-bit EBCDIC character string data. CDC 
extended print files consist of an ASCII code comparable to IBM 360/370 print file code. It contains a maxi¬ 
mum of 95 characters; each is represented'internally in a 12-bit byte. The code is printed through use of the 
CDC 595-6 print train. A list of the 95-character ASCII code appears on page 5-4, in the discussion of the 
COPY8P utility program. CDC extended print files are discussed further in appendix F. 


An IBM 360/370 sequential 8-bit tape can be written by the 8-bit subroutines with a few restrictions. When¬ 
ever a block is written, the block size is rounded up to the next multiple of 12 bits as it goes through the PP 

channel. The block size is rounded up again to the next multiple of 8 as it gets written on the tape. This 

may cause up to two extra characters to be written on the tape. 

For example, suppose a block to be written contains eight 8-bit characters or 64 bits, the PP rounds this to 
72 bits and the tape drive further rounds it to 80 bits for a full frame, 
ters. 
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Eighty bits equals ten 8-bit charac- 
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When reading this tape using the 8-bit subroutines, the extra characters are ignored as padding. 


>V 


y 


\ 




MAINTAINING 8-BIT SIGNIFICANCE 


v 




Maintaining 8-bit significance in data converted from IBM 360/370 tape files is necessary when such files con¬ 
tain character codes not included in the CDC 64-character graphic set. Lower case characters and several special 

# are included in the IBM EBCDIC and ASCII character sets used (see 




characters, such as @ ? ! and 

page A-2), but not in the CDC 64-character set. Control characters included in the 8-bit ASCII and EBCDIC 

character sets (page A~6) are not members of the 95-character ASCII graphic set used by the CDC 595-6 print 

train. These characters can be processed by the 8-bit subroutines, but such control characters cannot be printed 

on CDC equipment. The user must decide the necessity of maintaining special character codes. In many 

the upper case equivalent (page A-7) will suffice. 


V 


cases, 






In a number of cases, 8-bit significance need not be maintained. Files containing only characters that appear in 
the CDC 64-character set will convert to CDC 6-bit display codes. Files containing packed decimal data, in 
which each digit occupies 4 bits, will convert to CDC 6-bit numeric display fields. IBM files containing binary 
arithmetic data can be converted to CDC binary arithmetic or display numeric data per user specification. For 
IBM arithmetic data that does not exceed CDC double precision format, accuracy need not be maintained for 

8-bit significance. When double precision significance is exceeded, accuracy 
image conversion; but the user must provide his own routines to process such data. 
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be maintained by using bit 


can 
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OVERVIEW OF ROUTINES 


■-bit subroutines fall into two distinct 

* 

► 

Input/output subroutines that operate on a record-by-record basis, providing translation capabilities between 
internal and external data types and character sets. 

Utility subroutines that manipulate, compress, or expand character strings in display code, ASCII 


groups: 


, or 




s. 




A stand-alone program (COPY8P) provides the capability to copy an IBM 360/370 print file into a CDC 
patible print file without loss of 8-bit (upper and lower case) significance. 

Input/output subroutines: 


com- 




XFILE 


Must be used to define a file for subsequent use by the 8-bit input/output subroutines; 
it performs no input/output function by itself. 

Reads or rereads one record from an input file and places the data into the user’s 
buffer area. Optional data conversion may be performed during reading or rereading. 

Writes one record at a time to an output file; optional data conversion may be per¬ 
formed as specified. 


XREAD 

XREREAD 


XWRITE 


Utility subroutines include the following: 


XPACK 


Packs 8-bit data from 12-bit form into seven characters per 60-bit word for file 
storage. 


XPAND 


Unpacks 8-bit data (packed into 60-bit words for file storage by the XPACK sub¬ 
routine) into 12-bit form (5 characters per 60-bit word) for subsequent internal 

processing. 


XMOVE 


Moves character strings internally and optionally converts ASCII/EBCDIC/Display 
Code during the move. 


Compares two strings of like or differing character sets. Status information indicating 
the result of the comparison is returned to the user. 


XCOMP 


The print routine COPY8P is a stand-alone control-card callable program not related to the subroutines described 
above. It copies an IBM 360/370 print file to a 595-6 extended print file without loss of 8-bit significance. 
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NOTATIONS USED IN CALLING SEQUENCES 


words are reserved words. They must be spelled correctly and may not be used 
in a source program except as specified in the calling sequences 


r-. 


are generic terms which represent the words or symbols supplied by the user. 
When generic terms are repeated in a calling sequence, a number or letter is 
appended to the term for identification. 

enclose optional portions of a calling sequence. All entries within brackets may 
be omitted or included at the user’s option. 


Lower case words 


[ 


Brackets 


enclose two or more vertically stacked items in a calling sequence. When only 
one of the enclosed items must be used; also enclose required entries that may 

be repeated. 

immediately following a pair of brackets or braces indicate that the enclosed 
material may be repeated at the user’s option. 


\ 


x 


. . . Ellipses 


* 






represents the phrase “is defined as. 

0 

Punctuation symbols shown in the calling sequences are required, unless enclosed in brackets and specifically 
noted as optional. 
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CONVERSION STRINGS 








Data conversion strings are used as input parameters to the XREAD, XREREAD, and XWRITE subroutines. The 
conversion string specifies how data items in a record are to be translated. Through the data conversion string, 
the user may specifiy conversion between any IBM 360/370 data format and CDC internal data format. 


STRING POSITION 


Each record in the file is considered to be 


a string of variable length bytes with the length determined by 
the storage device in use. When the file is stored on tape, the string contains 8-bit bytes; on card or print files, 
the string contains 12-bit bytes; and when stored internally, the string contains 6-bit bytes. 

bytes, bits within each byte are numbered 1 through 6 or 8, from left to right. In 12-bit bytes (card input 
files) bits are numbered 1 to 12, from left to right. 


In 6-bit or 8-bit 


For binary card files, all 12 bits are used. These card files are described in section 6. 


FIELD ALIGNMENT 


When data conversion is initiated, internal pointers are established for the source and destination record areas, 

each initially pointing to bit 1 of byte 1 of its record string. These bits are the initial ‘next’ field positions. 
Single quotes are used, as the word ‘next’ has special meaning in this regard. 


When a ‘next’ source item is converted to a ‘next’ destination item, these pointers may be modified as follows: 


Prior to conversion, if the bit pointer for a byte does not equal 1, it is set to 1; and character position 
is incremented by 1 (rounded up to the next byte). If the destination pointer is so affected, skipped bit 
positions are filled with binary zeros. 


Exception: No rounding takes place for a type B (bit) source or destination item. 


When conversion is complete, the pointers are updated to point to the bit succeeding the last bit read or 
written — 
unchanged. 


2 . 


the ‘next’ field position. When conversion terminates mid-word, the remainder of the word is 


Alignment never is forced to a boundary more significant than a byte position. If word boundary or other 
alignment is needed, the proper fill items must be supplied explicitly. Data alignment requirements are given in 

section 7; IBM in table 7-1, CDC in table 7-2. 


2-1 
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CONVERSION STRING SYNTAX 


N 


\ 


A conversion string consists of 6-bit Display Code characters constructed in accordance with the following rules. 
With the exception of literal string parameters, blanks are ignored and may be used freely to improve readability. 

The notations used in the definitions are given in section 1. 


X 


conversion-string: 

(conversion-specification-1 [;conversion-specification-2] . . 


. 


conversion-specification: 

selector expression:]conversion-item-1 [,conversion-item-2] . . . . 


selector-expression: 

item-locator-1 
item-locator-1 




relationship value 

relationship item-locator-2 


conversion-item: 






simple-item-conversion 
conversion-string 

A conversion-string may contain one or more conversion specifications. A conversion-specification consists of an 
optional selector expression followed by one or more conversion-items. A conversion-item may consist of a 
simple-item-conversion or a conversion-string. A simple-item-conversion is the only utility that can cause data 
translation. Since a conversion-item may consist of a conversion-string, nested conversion strings are legal. Nesting 

may occur up to seven levels. 

Multiple conversion specifications are separated by semicolons. A selector expression is separated from its con¬ 
version items in a conversion-specification by a colon. Multiple conversion items are separated by commas. The 
scope of a selector expression is a single conversion-specification and is terminated by a semicolon, when the 
selector expression is true, the semicolon causes the rest of the conversion string, up to the matching right 

parenthesis, to be ignored. 

A conversion-item may comprise part or all of a conversion-specification or a conversion-string. The most basic 
form is a conversion-item which specifies only one conversion; this form would be a simple-item-conversion. 


repeat count] 


! 


■ \ 
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CONVERSION ITEMS 


record to a destination record. The 

not conversion is to take place. 


Conversion items provide directions for translating data items from a source 
items may be dependent upon selector expressions which determine whether or 


Conversion items are written: 


[repeat count] simple-item-conversion 


[repeat count] conversion-string 
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REPEAT COUNT 


A decimal integer is used as the optional repeat count to indicate the number of times the conversion item is 

to be repeated. This form is equivalent to writing the conversion item n times, separated by commas. No repe¬ 
tition occurs if the repeat count is zero or omitted. 


SIMPLE ITEM CONVERSION 


A simple item conversion specifies how the ‘next’ source record field is to be translated to the ‘next’ destination 
record field. The ‘next’ field is defined under Field Alignment. Only a simple-item-conversion specification causes 
data to be converted. Other parts of the conversion string provide control information, as they determine the 
kind of conversions to be performed. 


A simple-item-conversion must be written in one of the following formats: 




Format 3: Q 


Format 2: Tmj 


Format 1: Tmj Tm 2 


Format I 


Tm| must be a valid item descriptor type (table 2-1) for the source medium, which may be a tape file, internal 
file, or card file. Tm 2 must be a valid item descriptor type for the destination medium, which may be a tape 
file, internal file, print file, or card file. Table 2-4 gives translation rules for all possible combinations of simple- 

item-conversion. 


Examples of format 1: 


X5X5 


Tmi Tm 








Translates five 8-bit characters on an ASCII tape to five 6-bit internal Display Code characters. 


X5C5 




r\ 

Tm 1 T 


m 2 


Translates five 8-bit characters on an EBCDIC tape to five 12-bit internal EBCDIC characters. 


GU 


7i 


Tm, Tm 


2 




IBM 64-bit integer on tape to a 60-bit word containing a CDC unnormalized floating point number. 


one 


/ 


T 


Tm 


1 im 2 


Translates a 60-bit stream on tape to an internal 60-bit integer field. 
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—/'Tittu, tIh 


repeat count 




Makes 60 moves in which consecutive internal 6-bit fields are moved to consecutive 10-bit fields on a tape file. 
Each 10-bit destination field will contain 4 bits of binary zero fill on the right. 


4C5X10 


_7\i 

Titu Tm 


repeat count 






Translates 4 times consecutive 5-character, internal 12-bit EBCDIC fields to consecutive 10-character, 8-bit fields 

ASCII tape. Each destination field will contain 5 ASCII space characters as fill on the right. 

80X1C1 

/ J 


on an 


X80C80 




1 ^ m 2 


Irn 


Tm 


repeat count 


Tm 




1 


Translates an 80-character field on tape containing 8-bit EBCDIC characters to an internal 80-character field con¬ 
taining 12-bit EBCDIC characters. These two examples result in the same data conversion, as they are logically 
equivalent. The former will produce more rapid conversion, since it is faster to move 80 characters at once rather 

than one character at a time repeated 80 times. 




Format 2 

Tmj is defined the same as in format 1. A default value is selected for the absent Tm 2 descriptor, as specified 
in table 2-2. Translation rules for all possible simple item conversion combinations appear in table 2-4. 


V. 
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Examples of format 2: 


B60 


Tm 


i 


Moves a 60-bit internal CDC field to a 60-bit IBM tape file field. 


U 


Tm 




60-bit internal CDC unnormalized floating point number to an IBM 32-bit floating point field. 


Translates a 


A 


40 P5 


Tm 


repeat count 


i 


internal CDC 10-digit signed overpunch numeric 6-bit 


Translates sequential 9-digit IBM packed decimal fields to 


Display Code fields 40 times. 
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A10 


Tm 


1 


Translates 10 internal CDC 12-bit ASCII characters to 10 extended print format characters. 


Format 3 


The Q (Quit) specification is not a true conversion, but a control code. Execution of a Q specification termi¬ 
nates all conversion for the record. Conversion up to that point is not lost, but no further conversion takes 
place. 


CONVERSION STRINGS USED AS CONVERSION ITEMS 


Wherever a simple conversion item is allowed, a conversion string may be used, following the same syntax rules 
for conversion strings. This feature allows specification of alternative conversions at interior positions of a record, 
such as a fixed initial record segment followed by a variable format segment, or where certain alternatives may 
themselves have alternatives. 


Conversion strings may occur as items within conversion strings, to a maximum depth of seven levels. Examples 
of nested conversion strings appear later in this section. 


SELECTOR EXPRESSIONS 


A selector expression is written in one of two formats: 


item-locator-1 relationship value field 


item-locator-1 relationship item-locator-2 


A selector expression appears in a conversion specification to indicate a relational test is to be made. If the 
result of the test is true, all conversion items associated with the selector expression are executed. If the result 

is false, all associated conversion items are ignored. 




TEM LOCATORS 


T 


Item locators specify which data fields in the current source record are to be used in the relational test, 
locators may be written in the selector expression in any of the following forms: 


tern 


i/wTm 


iTm 

T is an item type specification; it may be any value representing a legal data type for the record media. 

m is a decimal integer specifying the size in bytes (12, 8, 6, or 1-bit if a type B item) of a variable length 
data item whose size is not determined uniquely by type. If the data item cannot be variable in length, 
the m specification must be omitted. When m is omitted for a variable length data item, it is assumed to 

be 1. 


Tm 
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Tables 2-1 and 2-2 contain allowable and default values for T and m. 


i is a byte index, absolute or relative. As an absolute index, i must be written as an unsigned decimal 
integer. As a relative index, i is written as a signed integer, the sign denoting the direction of the move. 
If i is omitted, the index is assumed to be plus zero, designating the current byte. 


The current byte, from which relative positions are computed, is the current ‘next 5 byte position. The 
current bit position within a byte is set to 1 if it is not already equal to 1. (See Field Alignment.) 

When the item type specification is for bit fields (B), the item locator may have the form i/wTm, where 
i is a byte index as described above, and w is an absolute bit position within the byte (the leftmost bit 
in the byte is numbered 1). The value given for w must not exceed the bit size of the byte in its source 
medium: 6 bits in memory, 8 bits on tape, 12 bits on cards. 


VALUE FIELD 


Selector expressions permit the user to test the relationship between the contents of an item-locator field and 
the contents of a value field or another item-locator field. The value field describes a literal character string or 
a numeric value to be used in the comparison. 

A character string is written in the value field as a literal enclosed in identical delimiter characters which are 
not considered part of the string. Either 

$, the other character should be used as the delimiter pair. If the delimiter character must be part of the 
string, each enclosed occurrence must be doubled. Within the string, doubled delimiters are counted as a single 

character. Blanks within delimiters are retained. 


or $ may be used as the delimiter. When the literal contains either 






or 


Example: 


String ABC*DEF 


may be specified as: $ABC*DEF$ 


*ABC**DEF* 


or: 


A literal string must not exceed 80 characters, excluding delimiters, and may be composed of any characters in 
the display code character set. 

A numeric 

FORTRAN. The general format of such a numeric field is: 


value is written in the value field in a form that closely follows the numeric notation used in 


a] 




+ 


+ 


digit-4 [digit-5] . . . 


[digit-3] . . . [E 


digit-1 [digit-2] . . . 


If E is present, the decimal point must also appear. 
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Numeric value may be expressed in any of the followng forms: 


±n.E±s 


±n.nE±s 


±.nE±s 


±n 


±n.n 


±n 


where n is the numeric value and s is the value of the exponent. The omission of a plus sign implies a positive 
value or exponent. 


(represents 452,000,000) 

(represents -818,620.0) 
(represents .000,000,000,057) 


0 


452.E6 

-818.62E3 

.57E-10 


2.5 


10 . 


RELATIONSHIPS 


Relationships for which elements in a selector expression may be evaluated are expressed by the following 
mnemonics: 


LE 


Less than or Equal to 


NE 


Not Equal to 


LT 


GT 


Greater Than 


Less Than 


GE 


Greater than or Equal to 


EQ EQual to 


Only the EQ and NE relationships are legal for value fields containing character strings (literals). 


Before a comparison between the elements in the selector expression can be performed, both elements must be 
reduced to a common mode: either a character string literal or a numeric value (table 2-3). Numeric quantities 
are kept to an accuracy of at least 96 bits. A and C character strings are folded to 6-bit form for comparison 
ainst X strings (6-bit). Folding is the process of mapping more than one source character to a single destination 
character. Upper and lowercase alphabetic characters are mapped to a single uppercase character set. The table 

page A-7 provides the translations for display code, EBCDIC, and ASCII characters that would occur during. 

mapping. Shorter strings are treated as if they were extended on the right with blanks so that both strings will 
be the same length. (Exception: a string deriving from a bit string will be extended with zeros.) 




on 


Examples of Selector Expressions: 


X6 


condition value string 


Tm 


item-locator-1 


A string of six 8-bit characters in a tape file record are compared with the literal ABCDEF; if they are equi¬ 
valent, the associated conversion item list is processed. 
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-4.67E+02 


LT 


.L 


value 


item-locator-1 condition 


The current byte in the record begins a long floating point field which is compared with the constant numeric 
value -467.0; if the item tested is less than the constant value, the associated conversion item list is processed. 


10X1 


EQ 


6X1 


// / 


/ ! \ 


i,T 2 m 2 


i.Tim 


condition 




item-locator-2 


item-locator-1 


One 8-bit character in byte 6 of the record is compared with one character in byte 10 of the record. If equal, 
the associated conversion item list is processed. 


-8G 


m 


+4W 


// 




condition 


hTjt 


item-locator-2 


item-locator-1 


A full-word integer starting 4 bytes beyond the current byte position is compared with the double-word integer 

starting 8 bytes preceding the current byte. If equal, the associated conversion item list is processed. 


$ 10 $ 


6/4B2 


EQ 


/ I 


value 


i/wT i m 

item-locator-1 


condition 




A 2-bit field starting with bit 4 of byte 6 is compared with the binary literal value 10. If equal, the associated 
conve rsion 


item list is processed. 


CONVERSION SPECIFICATIONS 


list of conversion items. The 


A conversion specification consists of an optional selector expression followed by a 
selector expression is a conditional expression which must be true for the associated conversion items to be 
executed. If the selector expression is missing, the conversion specification is treated as though it were prefixed 

by a selector expression which is always true. 

The conversion items of a conversion 

Format :=[selector-expression:] conversion 


sequence, left to right. 


specification are executed in 


-item-1 [,conversion-item-2] . . . 
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Examples: 


X80X80 


conversion-item-1 


conversion-specification 


'N. 


X5X10,X10X5 


conversion-item-1 conversion-item-2 


conversion-specification 




l. 


P5JQ 456 : P5S9 

selector ex pression conve rsion-item-1 

conversion-specification 


P3 GT 0 : 6P3Z10 , 60B8B6 


selector expression 


conversion-item-2 


conversion-item-1 


conversion-specification 


CONVERSION STRINGS 


Format: ^conversion-specification-1 [;conversion-specification-2] . . . ) 


A conversion string is parenthesized and consists of one or more alternative conversion specifications. During 
execution, when a conversion string is encountered, each conversion specification is tested in turn, from left 
to right, until one is found with a selector expression that is true. That conversion specification is executed 
and all alternatives to its right in the conversion string are ignored. If none is true, no conversion is performed. 




K 


Selection of the alternative to be executed occurs anew on each entry to the conversion string. 


CONVERSION STRING PUNCTUATION 


A colon separates a selector expression from its associated conversion items in a conversion specification; 
multiple conversion items are separated by commas. The scope of a selector expression is a single conversion 
specification, and it is terminated by a semicolon. When the selector expression is true, the semicolon causes 
the rest of the parenthesized conversion string, up to the matching right parentheses, to be ignored. This 
feature is of special significance when items are nested in parentheses in a conversion string. When a conversion 

item is executed, all remaining parts of the conversion string are ignored. 
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NESTED CONVERSION STRINGS 


imple item conversion is allowed in a conversion item. Conversion 


A conversion string may be used wherever a 
strings may occur within conversion items to a maximum depth of seven levels. 






This feature permits specification of alternate conversions at various positions within a record, such as a fixed 
initial record followed by a variable format segment, or where certain alternatives may themselves have alternates. 


Conversion String Examples: 


normally written Tm 1 Tm 2 . When the 


m values are given in table 2-1 for conversion items, 


All valid T an 

default value given in table 2-3 is acceptable, Tm 2 may be omitted. In many cases, m must not b 
Table 2-4 gives further details concerning conversion for T values. 


The following examples illustrate elements of a conversion string: 


(X80) 


conversion-string 


(4B6B8 , X0X10) 


conversion-string 




) 


10H1 


XIXO 


1 


50H1 


XI XO 


( XI EQ $A$ 






* 






i 


I 


conversion- 

item-4 


conversion- 

item-3 


conversion 

item-2 


conversion- 

item-1 


selector 

expression 


conversion-specification-2 


conversion-specification-1 


conversion-string 


) 


5 0W1 


XI EQ 2 : 20W1 


XI EQ 1 : 10W1 


3 


* 


conversion- 

specifcation-3 


conversion- 

specification-2 


conversion- 
specification-1 




\ 


\ 


conversion-string 




> 


(X4 EQ *MASH* : XI0X0 ; X10) 


( 


X20 




conversion-string used as conversion-item-2 

conversion-specification-2 




\ 


conversion-item-1 
conversion-specification-1 


conversion-specification-1 

conversion-string 




\ 
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All conversion items are based on the concept that data is moved from the source medium to the destination 
medium. The type of input (ASCII or EBCDIC, tape or card) or output must be specified by the code param¬ 


eter in an XFILE call. In the conversion item, a T value of X specifies source media characters for a read 


operation or destination coded characters for a write operation. 


The following examples assume a 9-track tape containing only 8-bit EBCDIC characters as the external source 
of data to be read to an internal record. The tape contains multiple repetitions of the alphabet in uppercase 
only: 


Example 


Explanation 


Moves the 5 characters ABCDE from tape to internal 
record. X5 specifies the first 5 characters on the tape; 
C5 specifies the first 5 characters of the internal record 
as 12-bit EBCDIC. 


Converts five 8-bit EBCDIC characters to five 12-bit 
ASCII characters. 


(X5A5) 


Because the first character on the tape is A, the first 
5 characters ABCDE are moved from the 8-bit EBCDIC 
tape record to the 12-bit EBCDIC internal format record. 


(XI EQ *A* : X5C5) 


Since the first character on the tape is not 1, the con¬ 
version item is ignored. 


(XI EQ *1* : X5C5) 


: X5C5 ; XI EQ *A* : X3C3) 


Since the first selector expression is false, the X5C5 
conversion item is ignored. The second selector ex¬ 
pression is true; therefore, the characters ABC are 
moved. 


(XI EQ *1 




The first 3 characters ABC are moved. Since the fourth 
character is D, the Q conversion item terminates con¬ 
version string execution at that point. The selector 
expression refers to the current byte of the source 
record which contains the character D. 


(X3C3,(X1 EQ $D$ : Q ; X3C3),X5C5) 


Since the third character in the source record is C, 
the first 5 characters ABCDE are moved from tape to 
internal 12-bit EBCDIC format field. 


(3X1 EQ *C* : X5C5) 






The selector expression is true, as D is the fourth 
character in the record; therefore, the first five char¬ 
acters ABCDE are moved. 


(+3X1 EQ *D* : X5C5) 


■ 


The first 3 characters on tape record ABC are moved 


(X3C3,(-3X1 EQ *A* : X23C23)) 


the first character is A, the selector expression is true; 
and the remaining 23 characters in the alphabetic 

sequence are moved. 
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e 


(X26C26/-26X26 EQ X26 : 2X26C26)) 


Moves one entire alphabet group from the tape to 
the internal record then compares the next 26 char¬ 
acters with the first 26. Since they match, two more 
entire alphabet groups are moved to the internal 
record. 


SPECIAL CONVERSION RULES 


Rules pertaining to all possible conversions appear in table 2-4. Some capabilities deserving special emphasis 
are itemized below. 


SPECIAL CONVERSION, BIT TO STRING 


When a bit field is converted to a character string, the result is a string equal in length (measured in characters) 
to the bit field (measured in bits). Conversion is left to right, each zero bit is translated to the character 0 and 
each one bit to the character 1. 


SPECIAL CONVERSION, BIT TO NUMERIC 


When a bit field is converted to a numeric value, the bit field is considered to be a positive binary integer. The 
binary point is assumed to follow the rightmost bit of the field. 


SPECIAL CONVERSION, STRING TO NUMERIC 


This situation can arise when a literal string or an X, C, or A item is to be compared with a numeric item. It 
must be a character string following the rules for a numeric value as described under Value Field. An error will 

result if the string is not in this format. Spaces in the string are ignored. 


CHARACTER SKIPPING AND BLANK/ZERO FILL 


character skipping, the source field size must be specified as greater than destination size in 


To specify bit or 
the conversion items. For example: 


B10B0 causes 10 bits to be skipped. 


5 characters to be skipped. 

XI0X5 causes 5 characters to be transferred and the next 5 to be skipped. 
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To Insert blanks or zeros in the destination record, destination field size must be greater than the source field 

size in the conversion item. For example: 


X0C5 causes 5 EBCDIC spaces to be placed in the destination field. 


B0B60 causes 60 bits of zero to be placed in the destination field. 


XIOX 100 causes 10 characters to be transferred to the destination field with 90 blanks on the right. 


An algorithm for converting 8-bit tapes with the high bit on is: 


n(BlB0,B0Bl,B7B7) 


BIBO skips one bit of the input record, B0B1 skips one bit of the output record, and B7B7 copies seven 
bits from the input record to the output record. 


CONVERSION OF FLOATING POINT AND INTEGER DATA 


Conversions are possible between the valid formats listed in table 2-1 within tide restrictions for each conversion 
noted in table 2-4, such as conversion between the IBM floating point formats of 32, 64, and 128 bits and the 
CDC floating and double-precision floating formats of 60 and 120 bits. Conversions to single precision floating 
point are rounded to 48-bit precision; conversions to double-precision are rounded to 96-bit precision. 




Conversion from the internal record to an external IBM floating-point format yields a minimum precision of 21 
bits for floating point, 53 bits for long floating point, and 109 bits for extended-precision floating point. 


CONVERSION OF BINARY DATA 


Any data may be considered binary and manipulated on a bit-by-bit basis. Bits may be copied in strings, or 
selectively, by skipping bits or replacing bit groups in a string with zeros. 

Bit strings may be converted to any other valid format within the limitations expressed in table 2-4. 


Item locators in selector expressions may address any bit in a character or bit string. 


will reference the fifth bit of the second byte in the source record. 


2/5 


Q $1$:X1C0,X1C1) will translate the second character to the internal record only if its fifth 


(2/5 


bit is 1 


When the internal record is referenced using data type B, all references must be bas 


r to the fift 


the 12-bit internal format is used to contain EBCDIC or ASCII characters. To r 

BCDIC 12-bit internal record, the item locator must be written 9/5B1 because all 


of 


c 


that otherwise would be encountered in other comparisons. 
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’ Table 2-1. Valid T and m Values 


* 


T Description 

Tape Media: (IBM 360/370 ASCII and EBCDIC 8-bit sequential tapes may include all these data items) 

size of field in bits 
size of field in (8-bit) characters 




Bits 

■ 

8-bit characters 
Half-word (16-bit) integer 
Whole-word (32-bit) integer 
Double-word (64-bit) integer 
Floating point (32-bit) 

Long floating point (64-bit) 
Extended-precision floating point (128-bit) 
Packed decimal (IBM COMP-3 COBOL items) 
Decimal signed numeric 


X 


w 


G 


F 


L 


E 


size of field in (8-bit) bytes 
size of field in (8-bit) bytes 


P 




Internal Media: (Internal CDC format) 


size of field in bits 
size of field in (6-bit) characters 
size of field in (12-bit) characters 
size of field in (12-bit) characters 


B Bits 


6-bit characters (Display Code) 

12-bit characters (ASCII) 

12-bit characters (EBCDIC) 

Integer (60-bit) 

Unnormalized floating point (60-bit 
Normalized floating point (60-bit) 

Double precision floating point (120-bit) 

Numeric, signed overpunch (Display Code) 
Numeric, unsigned (Display Code) 

Numeric, leading zeros suppressed (Display Code) 


X 


A 


C 




u 


E 


D 


size of field in (6-bit) characters 
size of field in (6-bit) characters 
size of field in (6-bit) characters 


S 


N 


Z 


Print Media: (Print format) 


size of field in bits 

size of field in (12-bit) characters 


B Bits 

X 12-bit characters (ASCII) 


Card Media: (Card file format) 


size of field in bits 

size of field in (12-bit) characters 


Bits 




X 12-bit characters (Hollerith) 


Control: 


Terminate conversion (quit) 


Q 


, no m specification may be made. 


*When m is 
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Table 2-2. Default Conversions if Tm 


is Not Specified 




Default Tm 


Tm 




2 




2 


Card/Print: 


Internal: 


Tape 


Internal: 


Tape: 


Bm 


Bm 


Bm 


Bm 


Bm 


Xm 


Xm 


Xm 


Xm 


Xm 


Xm 


Xm 




Am 


Cm 


Xm 


Xm 


W 


I 


G 


I 




W 


X20 


E 


F 


X20 


F 


U 


F 


X20 


E 




L 


E 


D 


X40 




L 


Sn (n=2m) 


Pm 


Xm 


Sm 


Sim 


Xm 


Nm 


Sm 


Sm 


Sm 


Zm 


Xm 


Xm 


r~« — 


Internal: 


Card: 


Bm 


Bm 


Xm 


Xm 


(Refer to table 2-4 for conversion rules.) 
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Table 2-3. Comparison Modes 


Tape: 


H,W,G,F, 


String 

Literal 


Numeric 


Literal 


B,X 




H,W,G,F, 

L,E,P,S 


Internal: 




• -5 


I.U.E.D, 
S.N.Z 


String 

Literal 


Numeric 


B,X 


Literal 




r 


s 




B,X,A,C 




I.U.E.D, 

S.N.Z 


“V 


V 

I 


Card: 


Numeric 


String 


Literal 


Literal 


r •« 




string literal mode 
numeric mode 


To use this table: 

r 

Select the subtable corresponding to the source-record to be converted. For reading tape, use 1 ape; for 
reading cards, use Card; for writing, use Internal. 

Find the row in the sub table corresponding to the data type of item-locator-1. 

Find the column in the subtable corresponding to the data type of item-locator-2 (or string literal type). 


1 . 


x 


2 . 




% 


\ 


% 


3. 


The intersection gives the comparison mode. 


4. 


. . .X3 EQ $123$ ... is a string literal mode comparison; 
. . .X3 EQ 123 ... is numeric mode. 
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Table 2-4. Conversion Rules 
(Numbers refer to notes following table ) 


Externa! to Internal 


Int. 












D 




N 






3,4 3,5 3,6 3,7 3,8 3,9 3,10 








B 




12 13,4 13,5 13,6 13,7 13,8 13,9 13,10 


12 


11 


12 


X 


8 




10 




7 


15 


15 


15 


4 




H 


14 


8 




10 




7 


15 




15 


15 


4 


14 




8 




10 






7 


15 


4 


G 


15 




14 


10 


8 


9 






7 


15 


15 




15 


F 


14 


10 




8 






7 


4 


15 


15 


15 


14 


L 


10 


8 




7 






15 


4 


15 


15 


E 


14 


7,25 8,25 9,25 10,25 


14,25 15,25 15,25 15,25 4,25 5 




7,26 8,26 9,26 10,26 


14,26 15,26 15,26 15,26 4,26 


S 


m. 


Internal to Externa! 






E 






L 








B 


3,24, 


3,23, 


3,19, 


3,19, 


3,19, 


3,18 


3,17 


3,16 






B 


26 


25 


22 


21 


20 


13,19, I 13,19, I 13,1971 13,23, 13,24, 


12 13,16 13,17 13,18 


11 


X 


26 


25 


22 


21 


20 


13,19, 13,19, 13,19, 13,23, 13,24, 


12 13,16 13,17 13,18 


11 


A 


25 


22 


21 


20 


13,19, 13,19, 13,19, 13,23, 13,24, 


12 13,16 13,17 13,18 


11 


C 


26 


25 


22 


21 


20 


19,20 19,21 19,22 23,25 24,26 


18 


17 


16 


15 


14 


I 


19,20 19,21 19,22 23,25 24,26 


18 


17 


16 


15 


14 


U 


18 19,20 19,21 19,22 23,25 24,26 


17 


16 


15 


14 




19,20 19,21 19,22 23,25 24,26 


18 


17 


16 


15 


14 


D 


23,25 24,26 


19,22 


18 19,20 19,21 


17 


16 


15 


14 




19,20 19,21 19,22 23,25 24,26 


18 


17 


16 


15 


14 




19,20 19,21 19,22 23,25 24,26 


18 


17 


16 


15 


14 


Z 
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Table 2-4. Conversion Rules (continued) 


NOTES: (-* implies conversion to) 


Applies to Bm->Bn. Copy the leftmost (min,(m,n)] bits from the source field to the destination field. 
If m>n, the rightmost (m-n) bits of the source field are ignored. If m<n, the rightmost (n-m) bits of 


1 . 


the destination field are set to zero. 


BmBO may be used to skip m bits of the source record. BOBn may be used to zero an n-bit field in 
the destination area. 


Applies to Bm->Xn,An,Cn. Copy the source field to the destination field one bit at a time from the left. 
Convert each zero bit to the character 0, and each one bit to the character 1. If m>n, the rightmost 
(m-n) bits of the source field are ignored. If m<n, the rightmost (n-m) characters of the destination 
field are set to 0. 


2 . 


BOXn (or BOAn or BOCn) may be used to set an n-character field in the destination area to all 0’s. 


Applies to Bm-^Numeric Type. The source field is treated as an m-bit positive binary integer 


3. 


A BO source field is treated as zero. 


Applies to -HL The source field is rounded (if necessary) to an integer, and the low order 59 bits are 

taken as the value. If the magnitude is >2 
is flagged. 

Applies to -*U. The source field is rounded (if necessary) to an integer, and the high order 48 bits are 
taken as the value. The result is kept as a single precision floating point number. However, this number 
is de-normalized (COBOL COMP-1 definition), if necessary, to keep the biased exponent >2000 8 . 

Applies to -HE. The source field is rounded to 48-bit precision and the result is kept as a single precision 
floating point number. 


4. 


(i.e., more than 59 bits required), an ERROR condition 


59 


5. 


6 . 


I). The source field is rounded to 96-bit precision and the result is kept as a double-preci- 


Applies to 

sion floating point number. 


7. 


-*Sn. The source field is rounded (if necessary) to an integer. If the magnitude is >10 n , high order 

The value is converted to a Display Code string of decimal digits, with leading 
if necessary. The sign of the number is indicated by amending the low order (units) digit as follows: 

(corresponds to 12-0 card punch) 

(corresponds to 12-1 

(corresponds to 11-0 card punch) 

(corresponds to 11-1 


Applies to 
truncation occurs. 


zeros 


0 -> < 


12-9 card punch) 


A-J 


1-9 


■> 


0 -> V 


Negative: 


11-9 card punch) 


J-R 


1-9 
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Applies to -►Nn. The source field is rounded (if necessary) to an integer. If the magnitude is >10 , an 

ERROR is flagged. The value is converted to a Display Code string of decimal digits, with leading zeros 
if necessary. The sign of the field is lost (magnitude only saved). 


9. 


n 


Applies to ->Zn. The source field is rounded (if necessary) to an integer. If the magnitude is >10 , an 
ERROR is flagged. The value is converted to a Display Code string of decimal digits. Leading zeros are 
suppressed and replaced by blanks. If the number is negative, a - replaces the rightmost blank. If the 
number is negative and no blanks are in the field, an ERROR is flagged. 


10 . 


Applies to Xm->Bn. The source field is copied to the destination field one character at a time from the 
left. Each 0 is converted to a single zero bit, and each 1 is converted to a single one bit. If any char¬ 
acter besides 0 or 1 is encountered, an ERROR is flagged. If m>n, the rightmost (m-n) characters of 
the source are ignored. If m<n, the rightmost (n-m) bits of the destination are set to zero. 


1 . 


Applies to (string)m-»(string)n. The source field is copied to the destination field from the left, with con¬ 
version according to appendixes A, B, and C if necessary. If the source field corresponds to card (Hol¬ 
lerith) input, and if the card punches for any character position are invalid, the eight-ones character 
(hexadecimal FF) is used for that position. If m>n, the rightmost (m-n) characters of the source string 
are ignored. If m<n, the rightmost (n-m) characters of the destination are set to blanks. 


12 . 


Using an n value of 0, m characters of the source may be skipped. Using an m value of 0 allows set- 

to 

ting a destination field to all spaces. 


13. Applies to (string)~>Numeric Type. A source character string which is to be converted to numeric type 

must have the following general form: 

digit-1 [digit-2] . . . £.[ [digit-3] ... [E 

where digit is 0 through 9. This format closely follows that used by FORTRAN, a decimal value option¬ 
ally followed by a power-of-ten exponent. Numbers are kept to a precision of at least 96 bits. Spaces 
are ignored; they may be embedded anywhere within the field. If any other character appears in the 
field, or if the syntactic form is incorrect, an ERROR is flagged. If the source field width is zero, the 
value is taken to be zero. If E is present, a decimal point also must be present. 

14. Applies to Numeric~>Bn. If necessary, the source field is converted to binary and rounded to integer form. 

The rightmost n bits, with sign extended, are moved to the destination field. The binary representation 

is in the form appropriate to the destination: 2*s complement for 360 format and l’s complement for 
CDC CYBER 70 format. If n bits are insufficient to contain the result, the rightmost n bits are 
placed in the destination field. If the source field width is zero, or the value is infinite or indefinite, the 
value is taken to be -0 (+0 if the destination is 360 format). 

15. Applies to Numeric-^string)n. The conversion of numeric fields to alphanumeric (string) fields depends 

upon several factors, including the size of the destination field, magnitude and sign of the source field, 
and maximum precision of the source item. The sub-rules below constitute an algorithm by which the 
receiving field format may be determined: (Alphabetic designation implies: A-all, I=integer, F=floating 
point F type, E=E type, R and X are special cases.) 


0 ] 


J+ 


+ 


digit-4 [digit-5] . 
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If the destination field width is zero, no conversion takes place. 


A.l 


A.2 If the source item is indefinite or infinite (internal items only) go to step X.l. 


A.3 Determine the maximum precision, p, of the source item from the following table: 


number of guaranteed 
accurate decimal digits 


p (digits) 


source item type 


4 


(360) 


H 


5 


9 


W 


10 


8 


G 


19 


7 


8 


F 


16 


17 


L 


33 


34 


E 


Pm 


Sm 


m 




18 




14 


15 


U 


14 


15 


E 


28 


D 


Sm 


m 




Nm 


m 




m 




A.4 Set a variable, d, to n. If the source value is negative, set d to n-1. d is the available desti¬ 
nation field width. 

A.5 If the source value is an integer (units bit represented and fractional part equal to zero) go 

to step 1.1, otherwise, go to step F.l. 

If the magnitude of the value is >10 , go to step E.l. 


1.1 


Convert the value to a decimal integer and place it in the destination field, right adjusted. 
Replace all leading zeros (except in the units position) by spaces. If the value is positive, 

procedure is DONE,. 

If the value is negative and h>l, place a - immediately to the left of the leftmost digit. Other 
wise (must be -0 in a one character field) replace the 0 by a 

number of digit positions required to use this representation as 


1.2 


1.3 


- DONE 


F.l Determine r, the minimum 

follows: 


K 


K-l 


lvalue l<10 


If lvalue>l, then r=K, where 10 
If IvaluelCl, then r=K-l+min(p,d-5), where 1 (T I value I < 10 


-K+l 


-K 


60359400 A 


2-20 



F.2 if r<(d-l), proceed to step F.3, otherwise go to step E.l. 


Convert the value according to one of the following formats and place the result string, right 
adjusted, in the destination field. Round the value, if necessary, to the indicated number of 
places. 


F.3 


(a) If [x>l) and [(r=d l) or (r>p)]: 


dld2 . . . di. 


(b) If (x>l) and [(r<d-1) and (r<p)]: 


i=r, j=min,(p,d-l) 


dld2 . . . di.di+1 . . . dj 


(c) If (x<l) and [(d-l)>(k-l+p)]: 


0.dld2 . . . dj 


j=K-l+p 


(d) If (x<l) and [(d-l)<(K-l+p)]: 


.dld2 . . . dj 


j=d-l 


F.4 If the value is negative, place a - immediately to the left of the leftmost non-blank character. 

DONE. 


-99 


If d<6, or if d=6 and ivaluel< .95x10 


, go to step R.l, otherwise proceed to step E.2. 


E.l 


E.2 Convert the value according to the following format: 


j=min(p,d-5) 


dl.d2. . .djEeee 


where eee is -99 to -01, +00 to +99, or 100 to 305. 


If a negative exponent less than -99 is required, the following format is used: 


j-min(p,d-6) 


dl.d2...djE-nnn 


Similar to FORTRAN scientific notation. The value is rounded to the indicated number of 
digits and placed, right adjusted, in the destination field. 


immediately to the left of the leftmost non-blank character. 


If the value is negative, place a 

DONE. 


E.3 


R.l This step is reached when the receiving field is not wide enough to represent the value, 

the destination field is filled with all asterisks. If the value is negative, the leftmost 
placed by a-. DONE. 


• ^ - j • .. 


* i 


is re- 
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This step is reached when the source field is either infinite or indefinite (internal source 
items only). The destination field is filled as shown below: 


4 or more (right adjusted in field) 


3 


Condition 


2 


1 


NF INF INF 

-NF -INF 
ND IND IND 

-D -ND -IND 


F 


+oo 


-F 


F 


+? 


D 


D 


.9 


Applies to -HH. The source value is rounded, if necessary, to a 2’s complement integer, and the low-order 
16 bits are taken as the value. If significance is lost, an ERROR is flagged. 

Applies to -*W. The source value is rounded, if necessary, to a 2’s complement integer, and the low-order 

32 bits are taken as the value. If significance is lost, an ERROR is flagged. 

Applies to ->G. The source value is rounded, if necessary, to a 2’s complement integer, and the low-order 
64 bits are taken as the value. If significance is lost, an ERROR is flagged. 

Applies to -HR,L,E. The source value is converted to a 360 format floating point number, rounded to the 
indicated number of bits. If the source magnitude is too large (> ~5xl0 75 ), the largest possible number 

is supplied. If the source magnitude is too small (O 5x10 

ber is supplied. 

Applies to -HR. The resultant value is a 4-byte field of 21-24 bit precision (360 short floating point). 

Applies to -HL. The resultant value is an 8-byte field of 53-56 bit precision (360 long floating point). 

Applies to -HE. The resultant value is a 16-byte field of 110-112 bit precision (360/370 extended pre¬ 

cision floating point). The low-order 14-16 bits may not be accurate, since only 96-bit precision is guaran¬ 
teed. 

Applies to -HPm. The source value is rounded, if necessary, to an integer and converted to packed deci¬ 
mal form. If lvaluel>10 2m_1 , overflow has occurred; and an ERROR is flagged. 

Applies to ->Sm. The source value is rounded, if necessary, to an integer and converted to a decimal 
string. If lvaluel>10 m , overflow has occurred and an ERROR is flagged. 


16. 


17. 


18. 


9. 


) but not zero, the smallest non-zero num- 


-75 


20 . 


21 . 


22 . 


23. 


24, 
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For P Fields, the sign of the field and low-order (units) numeric place are contained in the low-order 

(rightmost) byte as follows: 

Bits 


25. 


7 






Units 

Digit 


Sign 


Valid sign codes are: 


bit pattern: 1010 


sign: 


+ 


1011 


Preferred code used when 
a P field is generated 


1100 


+ 


1101 


1110 


+ 


mi 


+ 


For S fields in EBCDIC data, the sign of the field and low-order (units) numeric places are contained in 
the low-order (rightmost) byte as follows: 

Character Placed in 

that Position 

(sign) - 


26. 


Low Order 

Digit 


+ 


> 








A 






B 


2 


L 


C 


3 












5 


O 


F 








G 


7 


Q 


H 




R 






These replacements correspond to numeric + overpunch representation in card decks (digit+12 zone for plus, 
digit+11 zone for minus). In a source field, either the signed or unsigned form may be used in the sign position. 


For S fields in ASCII data, the sign of the field and low-order (units) numeric digit are contained in the low- 
order byte as follows: 


Character Placed in 

that Position 
+ (sign) - 


Low Order 

Digit 






Q 


A 








2 






c 


3 


T 




4 


U 




5 


V 


F 




W 


G 


7 


X 


H 




Y 




9 


2-23 


60359400 A 





Fs 


i 
























INPUT-OUTPUT SUBROUTINES 




The subroutines XFILE, XREAD, XREREAD, and XWRITE described in this section are used to read or write 

9-track or 7-track IBM sequential tape files, to read or punch cards, or to print extended character-set data. All 

input and output goes through the Record Manager, but records are neither converted nor blocked/deblocked at 
that level. Accordingly, special conventions are necessary for Record Manager, KRONOS and SCOPE 
declarations; these are discussed in section 6, System Interface. 


NPUT/OUTPUT PARAMETERS 


For the calling sequences to the input/output subroutines, the following general information applies to the 


File Name (file) 


In a COBOL calling sequence, this parameter must be a file name. In a FORTRAN calling sequence, it may be 
either an integer file number or a literal constant written nL and containing the file name. In a COMPASS call¬ 
ing sequence, the parameter may be either an nL literal constant or the address of a word containing the file 
name in Display Code, left adjusted and zero-filled. 




Integer Parameter (size) 


In a COBOL calling sequence to an I/O subroutine, the size parameter must be an integer COMPUTATIONAL-1 

item, containing no more than 14 decimal digits. In FORTRAN, the parameter may be an integer constant, 

variable, or expression. In COMPASS, the size parameter may be an integer constant or the address of a word 
containing an integer value. 


Real Parameter (status) 


The status parameter in a COBOL calling sequence must be a COMPUTATIONAL-2 item, 
it must be a real variable name. 

real (floating-point) value. 


In FORTRAN, 

In COMPASS, it must be the location symbol of a word that contains a 


String Parameters (file-string, conversion-string) 


String parameters are used to pass variable information and are elementary 01 level or SYNC LEFT display 
data items. 

desired string elements, or they are alphanumeric literal strings. In FORTRAN, they can be variable 

names or constants written in nH or nL form, or set off by u or £ quotation symbols. In COMPASS, the 

string parameters may be written as literal constants or as location symbols of words which contain the strin 
items written as character data. 


Jn a COBOL calling sequence, these parameters are DISPLAY data items with VALUE set to the 


or array 
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XFILE FILE DEFINITION 


Before the first reference to a file by XREAD or XWRITE, the file must be defined to the input/output pro¬ 
cedures by a calling sequence to the XFILE routine. No operation is performed on the file by XFILE; however, 
workspace and other specific information is defined for the file. 


The workspace provided by XFILE for the file may not be used simultaneously for any other purpose. It may 
be freed at the user's discretion for other use, but no more references may be made to the defined file unless 
another XFILE calling sequence is executed. 


FORTRAN Calling Sequence: 


CALL XFILE(file,workspace,file-string,size) 


File identification; integer constant, simple integer variable, or a literal written nL and con¬ 
taining the file name. The file name must have been declared in the PROGRAM statement. 


e 


Name of working area to be used by input/output procedures. It is an array name that 
is dimensioned or equivalenced to satisfy workspace size requirements. 


workspace 


Parenthesized list that specifies required file information in keyword form. In FORTRAN 
either ^or" marks must delineate the file-string which is written as a variable or array 
name or as a string constant in H, L, or " . . . " format. 


file-strin 




Size of workspace area to be used, expressed as a decimal integer constant or variable 
which describes a number of central memory words. 


size 


COBOL Calling Sequence: 


ENTER XFILE USING file,workspace,file-string,size. 


Identification of file (file name) to be associated with workspace area. 


file 


Name of data working area to be used by input/output procedures. It is a data item 
name and must begin on a word boundary (synchronized or 01 level item). 


workspace 


Parenthesized list of parameters specifying certain file information in keyword form. In 
COBOL, the parenthesized list must be delineated by ^ marks and may be written as 
a data name or alphanumeric literal constant. 


file-strin 


Size of workspace area in number of central memory words, expressed as a COMPUTA¬ 
TIONAL-! item. This parameter is optional; the COBOL default value for size is the 

length of the workspace data item in words. 


size 
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Operation 


Variable 


SA1 


plist 


RJ 


XFILE 




VFD 


60/file 

60/workspace 
60/ file-string 
60/ size 


VFD 


VFD 


VFD 


BSSZ 




Symbolic location of parameter list which must be terminated with word of binary 

Symbolic location of word containing identification of file to be associated with workspace 
area. 


zeros. 


workspace 


Symbolic location of working area to be used by input/output procedures. The size of the 
area must be sufficient to meet the requirements of the character strings to be processed. 


file-string 


Symbolic location of a parenthesized literal written as a string in H, L or ... format, 
specifying required file information in keyword form. 


Symbolic location of integer value specifying size of the workspace area in number of 
central memory words. 


size 


FILE-STRING PARAMETERS 


File-strings are written in the XFILE calling sequence as a series of keywords and parameters, enclosed in 
parentheses. Three keywords with parameters are required for tape and printer files; only two are required 
for card files. The order in which the keywords and optional parameters are written is of no consequence. 


For tape and print files, the file-string is written: 


(FT=ft,USE~use,RECFM=form,optional parameters) 


In card files, it is written: 


(FT=ft,USE=use,optional parameters) 


File type keyword 


ft 


IBM 360/370 format tape 

Print file with extended character set print train 
Card file (read or punch) 


T 


P 


C 


3-3 


60359400 B 





File usage keyword 


use 


Read (input) file 

Write (output) file 


R 


W 


For FT=P, file usage is USE=W only. 


'N. 


Record format keyword (omitted for card files) 




form 


-■ ? 


F 








FB 


FS 


Required tape file parameter. Defines IBM record/block format used as explained under 
IBM File Record and Block Formats in appendix B. 


-- 


\ 


V 


VB 


VS 


.a-— - ' 




VSB 




u 


US 


These formats are extensions of IBM file record/block types. See appendix B. 


UB 


USB 


Optional file-string parameters are: 


Required for tape files; gives maximum size of tape block in 8-bit characters. 


Block Size: 
BLKSIZE = nnnn 






\ 


V 

1 


Required for blocked tape files and VS format (FB, FSB, VS, VB, VSB, UB, USB); 

gives maximum size of logical record in 8-bit characters. 

Optional for tape files; defines external code as ASCII (A) or EBCDIC (C). If 
omitted, EBCDIC is assumed. 


Record Size: 
LRECL = nnnn 


Data Code: 

CODE = A 


C 


Optional parameter for print files; 1, 2, and 3 indicate single, double, or triple 
space. If A, record character 1 is used as carriage control code. If parameter is 

omitted, default is FMT=A. 


\ 


Print Format: 

FMT = 1 




9 


3 




I 


A 


RECFM, BLKSIZE, and LRECL have the same meaning as their 360 (Job Control Language) counterparts, and 
enerally, they should be copied from the associated DD card. Appendix B includes a description of IBM 360/ 


370 tape formats. 
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WORKSPACE AREA SIZE 


Size of the workspace area in number of central memory words is determined by the file type parameter in the 
file-string, as follows: 


FTC 


20 words are required 


32 words are required 


FTC 


Workspace is determined by the record format parameter in the file-string, as follows: 


F,FS,FB,FSB,U,US,V and reading of VB,UB,USB 


RECFM 


BLKSIZE 


space = 6 + 


words 


7.5 


VS,VSB and writing of VB,UB,USB 


RECFM 


LRECL 


BLKSIZE 


space = 6 + 


words 


+ 


7.5 


7.5 


means the smallest integer not less than x. 


where 


FILE USAGE 


Files written or read by the 8-bit routines may not be processed subsequently by normal read/write functions 
in the same FORTRAN or COBOL program. The 8-bit routines alter the Record Manager file information table 
(FIT), &nd the original information contained in the FIT for the files is not viable for normal FORTRAN or 
COBOL input/output. 


WRITE A RECORD 


XWRITE 


This routine takes data from a record area in memory, converts it, if specified in the calling sequence, and writes 
it in the file workspace area. When enough data is collected in the workspace area to form a record, XWRITE 
sends the record to Record Manager which outputs the record. When used with COPY8P (extended print codes) 
the trailing zero byte is inserted during conversion. 


If the file is not opened when XWRITE is ready to send a record to the input/output manager, XWRITE will 
open it. A file can be opened by an OPEN request in COMPASS, or by a previous XWRITE calling sequence. 

XWRITE will specify open for I/O with no file positioning. 




FORTRAN Calling Sequence: 


^/orkspace,source £ <j 


,conversion-string 
, conversion-string, status 


CALL I XWRITE 


Name of working area to be used by XWRITE, as defined for the file name given in 
the XFILE call. The XWRITE call is linked with a specific file only by the workspace 
name. 


workspace 




HWS- 
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Name of array containing source record. 

Conversion string to be used. This parameter is parenthesized, and is described in 
section 2, Data Conversion Strings. It may be written as a variable, an array name, 
or a string constant. If parameter is omitted, record size is not converted before it 
is written to the workspace. Record size default values are 80 characters for card 
files, 137 characters for print files (136 if a format is specified), and LRECL for 

tape files. 

Optional real variable name to which a status value is returned as follows: 


source 


conversion-strin 


status 


0.0 No error, no abnormal condition 

1.0 Error during conversion 

2.0 Non-recoverable error on output, file 


If XWRITE routine is called as a FORTRAN function, the status value is returned as 
the value of the function. For example: 


KEY=XWRITE (A ,B ,*{X 1 OX 1 0)=t) 


In this case, status will be returned as a real value for the value of the function, which 
is then converted to an integer to replace the value of KEY. 

If conversion-string parameter is omitted from the calling sequence, then the status 
parameter- must be omitted also. 


COBOL Calling Sequence: 


}] 


{•: 


,conversion-string 

conversion-string,status 

Name of working storage area to be used by XWRITE, as. defined for the file name 
given in the XFILE calling sequence. The XWRITE call is linked with a specific file 

only by the workspace name. 

Data item name containing source record. 


ENTER XWRITE USING workspace,source 


workspace 


source 


Conversion specification to be used. This parameter is parenthesized, as described in 
section 2, Data Conversion Strings. It may be a data name or an alphanumeric literal 
string surrounded by quotation marks. If this parameter is omitted, the record is not 
converted before it is written into the workspace. Item size is passed in the param¬ 
eter list; the shorter of item size or record size determines the record length. 

status value is returned. 


conversion-string 


Optional COMPUTATIONAL-2 (real) item to which a 


status 


0„0 No error or abnormal condition 

L0 Error during conversion 

2.0 Non-recoverable error on output file 


omitted from the calling sequence, then the status 


If the conversion-string parameter is 
parameter must be omitted also. 
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COMPASS Calling Sequence: 


Location 


Operation 


Variable 


SA1 


plist 


RJ 


XWRITE 


{ 


} 


,60/conversion-string 

* 

,60/conversion-string,60/status 


plist 


VFD 


60/workspace,60/source 


,60/0 


plist 


Symbolic location of parameter list which must be terminated with a word of binary 
zeros. 


workspace 


Name of working area to be used by XWRITE as defined in the XFILE call. The 
XWRITE call is linked with a specific file only by the workspace name. 


Name of area to contain the source record. 

Symbolic location of parenthesized literal specifying the conversion option. If param- | 
eter omitted, the record is not converted before it is written in the workspace area. 


source 


conversion-string 


Optional location in which the status value is returned after the write operation, as 
follows: 


status 


0.0 No error; no abnormal condition 

1.0 Error during conversion 

2.0 Non-recoverable error on output file 


If conversion-string parameter is omitted, the status parameter must be omitted also. 


FORCING TERMINATION OF FILE OUTPUT 




The XWRITE routine may be used to force termination of output to a file, and cause the writing of any partially 
filled workspace area. When blocked tape formats (FB, FSB, VB, VSB, UB, USB) are used, such a call to 
XWRITE should be issued after all other XWRITE calls, to ensure that all data is output. This call does NOT 
close the file. 




FORTRAN Calling Sequence: 


CALL XWRITE(workspace) 


COBOL Calling Sequence: 


NTER XWRITE USING workspace. 
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COMPASS Calling Sequence: 


Variable 


Operation 


Location 


plist 


SA1 


XWRITE 


RJ 


42/0,18/workspace 


VFD 


plist 


1 


READ A RECORD 


XREAD/XREREAD 


These routines can be used to read a next record from the file workspace area, convert it, if specified in the 
calling sequence, and place it in a destination area in memory; to reread the current record, possibly with a 

different conversion specification; or to skip over records. 

If the file is not open when XREAD is ready to process a record, XREAD will open it, specifying open for 
input/output with no rewind. A file cannot be opened by the XREREAD routine. 


FORTRAN Calling Sequence: 


To read a next record: 


{ 


,conversion-string 

,conversion-string,status 


[CALL] XREADjworkspace 


,destination 


To reread a current record: 


} 


{: 


conversion-string 

,conversion-string,status 

Name of working storage area for a file, as defined in the XFILE calling sequence. 
The XREAD/XREREAD call is linked to a specific file only by the workspace 

Name of array to contain processed record. 


[CALL] XREREAD ^workspace 


'destination 


workspace 


name. 


destination 


Converstion string to be used. If this parameter is omitted, the record is not con- 

transferred to the destination area. This parameter is parenthesized, 

2. Data Conversion Strings, and may be a variable, an array 


conversion-string 


verted as it is 
as described in section 


name, or a 


A 
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Optional real variable name to which a status value is returned: 


tatus 


-4.0 No data (XREREAD preceded any XREAD) 
>3.0 End-of-information encountered 
-2.0 End-of-partition encountered 
-1.0 End-of-section encountered 

0.0 No error or abnormal condition 

1.0 Error during conversion 

2.0 Non-recoverable error on input file 


If either routine is used as a function, the status value is returned as the value of the 
function also. 


COBOL Calling Sequence: 


To read a next record: 


{: 


} 


conversion-string 


ENTER XREAD USING workspace destination 


, conversion-string, status 


To reread a current record: 


} 


{ 


,con version-string 
,conversion~string,status 


ENTER XREREAD USING workspace destination 


Name of working storage area for a file, as defined in the XFILE calling sequence. 
The XREAD/XREREAD call is linked to a specific file only through the workspace 
name. 


workspace 


Data name of destination record area. 


destination 


Conversion string to be used. If this parameter is omitted, the record is transferred to 
the destination area without conversion. See section 2, Data Conversion Strings. This 
parameter may be a data name or a literal string surrounded with quotation marks. 

I 

1 

An optional COMPUTATIONAL-2 data name to which a status value is returned: 


conversion-string 


status 


-4.0 No data (XREREAD preceded any XREAD) 

-3.0 End-of-information encountered 
-2.0 End-of-partition encountered 
-1.0 End-of-section encountered 
0.0 No error or abnormal condition 
1.0 Error during conversion 
2.0 Non-recoverable error on input file 
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COMPASS Calling Sequence: 


To read a next record: 


Variable 


Operation 


plist 


SA1 


XREAD 


RJ 


60/workspace,60/destination 

60/conversion-string 
60/conversion-string,status 

60/0 


VFD 


}J 


VFD 


To reread a current record: 


Variable 


Operation 


Location 


SA1 


XREREAD 


RJ 


60/workspace,60/destination 
60/conversion-string 

60/conversion-string,status 
60/0 


VFD 


} 




VFD 


VFD 


Symbolic location of parameter list which must be terminated with a word of 
binary zeros. 

Location of workspace area for a file. The read calls are linked to a specific file only 
by the workspace name. 

Location of the area where the processed record is to be placed. 

Symbolic location of literal listing conversions to be made. If parameter is omitted, 
the record is transferred without conversion. The literal is parenthesized, as described 

in section 2, Data Conversion Strings. 


plist 


workspace 


destination 


conversion-string 
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Optional location of a status value indicating the result of the read as follows: 


status 


-4.0 No data (XREREAD preceded any XREAD) 


-3.0 End of information encountered 


-2.0 End of partition encountered 
-1.0 End of section encountered 
0.0 No error; no abnormal condition 
1.0 Error during conversion 
2.0 Non-recoverable error on input file 


SKIPPING RECORDS 


The XREAD sequence can be used to skip a record by causing the next record to be read from the workspace 

area but not converted or moved to a destination area. The subsequent record then is available as the current 
record and may be processed by XREREAD. 


FORTRAN Calling Sequence: 


CALL XREAD(workspace) 


workspace 


Identifies the array area containing the file record to be skipped. 




COBOL Calling Sequence: 


ENTER XREAD USING workspace. 


workspace 


Name of working storage area, as defined for a given file in the XFILE calling 
sequence. 


COMPASS Calling Sequence: 


Operation 


Variable 


Location 


SA1 


plist 


XREAD 


RJ 


42/0,18/workspace 


VFD 


plist 


BSSZ 


1 


Symbolic location of parameter list which must be terminated with a word of binary 
zeros. 


plist 


Symbolic location of file working storage area containing the record to be skipped. 


workspace 


Any calling sequence to XREREAD specifying only the workspace parameter and omitting all other parameters 
would be, effectively, a no-operation and no action is taken. 
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ERROR HANDLING 


When errors are detected in processing input or output calling sequences, an error 
written to 


message 


the job’s OUTPUT file and dayfile. Error status codes are returned in the status location given in 


the XREAD, XREREAD, and XWRITE parameter list. 


For a COBOL or FORTRAN Extended program, an attempt is made to provide traceback information. 


fatal to execution; however, all data conversion errors will terminate translation at the point of 


No error is 

detection. For example, when a conversion error is found by XREAD, the remainder of the record will not be 

, XREREAD may be used as an alternate procedure to reprocess the record with a 

error is detected by XWRITE, the record will not be written. 


converted. In such 
different conversion string. When a conversion 

Input/output errors cause unpredictable results. 


COBOL INPUT/OUTPUT EXAMPLES 


For these examples, assume that a tape containing only 30-character EBCDIC coded records (no binary data) 
is to be read with a COBOL program. The characters must be converted to internal CDC format, as described 

to be performed is specified by the conversion-string parameter in the XREAD/ 


in table 2-1. The conversion 


XWRITE calling sequences. 


The file type must be specified in the XFILE file-string parameter, along with usage, record format, and block 
size. These parameters should be copied from the associated DD card in 360 JCL. Data Division entries in the 

COBOL program might appear as: 




DATA DIVISION 


WORKING-STORAGE SECTION. 

77 SZ PIC 999 USAGE COMP-1 VALUE 46. 

77 STAT USAGE COMP-2 VALUE 0. 

01 CSTRING PIC X(60) VALUE #{X30C30)#. 

FSTRING PIC X(60) VALUE ¥{FT=T,USE=R,RECFM=FB,BLKSIZE=150,LRECL=3O,CODEC)#. 

01 TMP1 PIC X(30). 

01 WS1 PIC X(460) VALUE SPACES. 


01 


time during execution; for example 


Any of the values in the working storage section can be altered at any 

the C OMPUT ATI ON AL-2 item STAT is changed to reflect the status of read and write operations. In the 

the SELECT clause. 


3 


name TT9 is used in 


FILE CONTROL paragraph of the Input-Output Section, the file 
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COBOL TAPE READING EXAMPLE 


Before the file TT9 can be processed, the file must be opened and the XFILE routine called. These operations, 
together with the first read of the tape file might appear in the Procedure Division of the program as: 


Rl. 


OPEN INPUT TT9. 

ENTER XFILE USING TT9, WS1, FSTRING, SZ. 
ENTER XREAD USING WS1, TMP1, CSTRING, STAT. 
IF STAT NOT EQUAL 0 DISPLAY ^FAIL R1=A 


CONVERSION-STRING VARIATIONS FOR PRECEDING INPUT EXAMPLE 


Conversions are performed when the format of the destination field is not the same as the format of the input 
field designation in the COBOL program. The X used to specify characters does not change, though the code 
designation of the tape may be changed. Thus, the same file on an ASCII format tape could be mounted, the 
tape code designation changed in the file-string parameters of the XFILE call, and the new tape processed with 
the same results. 


To convert the information from an EBCDIC tape to ASCII or Display Code, specify T 2 in the conversion item 
as A or X. When T 2 is A, each 8-bit character from the tape is converted to an internal ASCII 12-bit character. 
The leftmost 4 bits within each 12-bit byte remain unused. When T 2 is X, the 8-bit characters are converted to 
6-bit Display Code characters according to the translation shown in appendix A. 

Converts ten 8-bit EBCDIC characters to ten 12-bit ASCII characters. 


(X10A10) 


Converts ten 8-bit EBCDIC characters to ten 6-bit Display Code characters where match¬ 
ing characters exist (see appendix A). Non-matching characters are converted to Display 

Code blanks. 


(X10X10) 


Converts EBCDIC characters to bits. This conversion is valid only for zero and one 
EBCDIC characters; otherwise, an error occurs. 


(X30B30) 


Converts bits to bits. Bits are moved to the destination field (TMP1) with no conversion. 
Source field bits that exceed the number of destination field bits as in B240B100, are 
skipped. In the reverse situation such as B240B300, remainin 


(B240B240) 


bits are set to zero. 


Selector expressions may be used to execute conversion specifications conditionally based on a test made during 
execution. If the selector expression preceding the colon is true, the following conversion items are executed 

semicolon is encountered. If the selector expression is not true, the next conversion specification 


until a Q or 
following the semicolon is attempted. 
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(1X1 EQ * 1 *:9X2X1 ,X0X1;XI) 

the above example, if the first EBCDIC character (XI) is equal to the literal 1, the repeat count 9 is 
used to move 2 characters from the source field to a 1-character receiving field 9 times, effectively con¬ 
verting every other character to 6-bit Display Code, 9 times. X0X1 causes a Display Code blank to be 

appended. Thus, if the input record were 

12345678901234567890 in EBCDIC form (hexadecimal F1F2F3F4F5F6F7F8F9F0F1F2F3F4F5F6F7F8F9F0) 
the resulting receiving field would contain 135791357 blank. Internally in Display Code, the octal equivalent 

of the characters would appear: 


n 


it 




34364042443436404255 


If the first character referenced on the tape were not a 1, only the conversion item XI would be performed, 
and the first character would be converted to Display Code. The remainder of the destination field would 

remain untouched. 

Bit manipulation differs from other formats in that a slash is required if other than the first bit within a byte 
is to be referenced. 


(2/5B2 EQ $10$:X10,Q;X5) 

Causes the fifth and sixth bits of the second character to be compared with the binary literal 10; if they 
match, 10 characters are converted to Display Code and the Q causes termination. (Were the Q not in¬ 
cluded, the semicolon would terminate the scope of the selector expression.) 

If bits 5 and 6 are not equal to the binary literal 10, the selector expression is not true. The next con¬ 
version item is executed, and 5 characters are converted to Display Code and stored in the destination 

field. The conversion terminates. 

The foregoing concepts may be extended to create the following conversion strings: 

(3X3 EQ 6X3:10X2X1,Q;10X1X0,XI) 

If the three characters starting with the third (characters 3, 4, 5) are equal to the three characters starting 
with the sixth (characters 6, 7, 8), convert every other 8-bit EBCDIC character to Display Code 10 times. 

(Where character translations do not exist, see appendix A.) 

If the selector expression proves false, skip 10 characters and then convert 
Display Code. 

(X3,(X3 EQ -3X3 :X7)) 

Convert three 8-bit EBCDIC characters to Display Code and store in destination field, if the next three 
characters are the same as the preceding three (-3), convert the next seven 8-bit EBCDIC characters to 

Display Code also. 

To resolve questions concerning defaults, refer to table 2-3. When uncertain as to the type of conversion or 
output, see table 2-4. 


"V. 








: 




i 


.• “ 


•“*» 


. 




8~bit EBCDIC character to 


one 
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COBOL TAPE WRITING EXAMPLE 


To write from an internal file to an EBCDIC-coded tape file, rules similar to those for reading apply. Internal 
data is in either 6-bit Display Code or 12-bit ASCII/EBCDIC format. 

In this example, TT9 is the output file name. The record format of the output file is specified in the XFILE 
calling sequence. Before the first write may take place, the file must be opened and the XFILE routine called. 

This portion of the program might appear as: 


Wl. 


OPEN OUTPUT TT9. 

ENTER XFILE USING TT9, WS1, FSTRING, SZ. 

ENTER XWRITE USING WS1, CS1, #(C30X30)#, STAT. 
IF STAT NOT EQUAL 0 DISPLAY #FAIL Wl#. 


CONVERSION STRING VARIATIONS FOR PRECEDING OUTPUT EXAMPLE 

In the following examples, the source field descriptors will be A for 12-bit ASCII, C for 12-bit EBCDIC, X 
for 6-bit Display Code, or B for bits. X for the destination field descriptor represents 8-bit EBCDIC characters. 

(CIO) 

12-bit EBCDIC characters to be written to tape as ten 8-bit EBCDIC characters. 


(C10X10) 


or 


Would cause ten 


To convert one character from internal 12-bit ASCII to 8-bit EBCDIC on tape. 


(A1X1) 


To convert 30 characters of internal 6-bit Display Code to 8-bit EBCDIC on tape: 


(X30X30) 

(30X1X1) 

(30X1) 

(X30) 


or 


or 


or 


The last two examples assume the default given in table 2-3. 
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The following examples illustrate conversion strings for extended applications. In all examples, the 

internal file and the destination is an EBCDIC tape file. 


source is an 


( XI EQ $1$ : 9X1X2 ; XI EQ $2$ : 9X1X3 ; X1X1) 


If the first character in the internal record equals a literal 1, move consecutive 1-character internal source 

destination fields 9 times. In the destination, each of the nine EBCDIC 


fields to consecutive 2-character tape 
characters converted from Display Code will be separated by spaces. If the first character is equal to a 

literal 2, move a 1-character source field to a 3-character destination field 9 times. As a result, two spaces 

converted characters. If the first character is neither 1 or 2, it is converted 


will separate each of the nine 
to an 8-bit EBCDIC character in the tape destination field. 


(3C4 EQ $BCDE$ : C10X15 ; 11C2 EQ *F1* ; C6X6 ; C5) 


Four internal 12-bit EBCDIC characters starting in byte 3 are tested first in this example. Bytes 3 and 4 
in the word contain character 2. If characters 2 through 5 are equal to the literal BCDE, ten 12-bit 

written to the destination field as ten 8-bit EBCDIC characters with 5 blank char¬ 
acters appended. If the 4 characters are not equal to BCDE, then characters 6 and 7 are tested. (Bytes 1 

the next word contain these two characters.) If they are equal to the literal FI, six internal 

written to the destination field as six 8-bit EBCDIC characters. If neither 
is true, then five 12-bit EBCDIC characters are written to the destination field as five 8-bit 


EBCDIC characters are 


through 4 in 
12-bit EBCDIC characters are 


relationshi 

EBCDIC characters. 


(5X2 EQ *23* : X5 ; X1X0, (XI NE $2$ : X9X10 ; X4X0.X5X5)) 

Starting with the fifth character in a string, if the two characters (5 and 6) are equal to the literal 23, 
convert' the first five characters in the string to 8-bit EBCDIC and terminate conversion of the remainder 

of the record. 

If the fifth and sixth characters are not equal to 23, skip the first character ini the source 
and test the next single character. If not equal to 2, convert 9 characters (the second through the tent ) 

from internal Display Code to external EBCDIC and append one blank character. 

If the two relationships are not true, skip the next 4 characters (the second through the fifth) and con¬ 
vert the next 5 characters from Display Code to 8-bit EBCDIC. 


field with X1X0 


(X8X0,(-4X3 EQ +6X3 : 10X1X2 ; 10X1X3)) 


Skip over the first 8 characters in the internal record. If three Display Code characters starting wit t e 
fifth in the record (characters 5-7) are equal to the three characters starting with the 15th (characters 
15-17), convert ten single Display Code characters to 8-bit EBCDIC and insert a blank between each, 
the relationship is not true, 10 characters are converted to EBCDIC with two blanks inserted between 

each in the destination record. 
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FORTRAN INPUT/OUTPUT EXAMPLES 


It is expected that double-precision and floating-point usage will be of more interest to FORTRAN users; there¬ 
fore, such information is given here rather than among the COBOL examples, although it is applicable to both. 


A typical FORTRAN Extended job using the 8-bit subroutines might appear as follows: 


JOBNAME,CM6000,T200. 


t ACCOUNT CARD 
FTN. 


f t REQUEST,TAPE 1 ,NT,S. 

FILE(TAPE1,MRL=134,RT=U,BT=K,MBL=134,MNB=24,MNR=24) 
LDSET(FILES=TAPE1) 

LGO. 

7/8/9 


To determine the proper record format and' values for the FILE control card, refer to appendix B and section 
6, System Interfaces. 


Before any reference to the XREAD or XWRITE routines, a call to the XFILE routine must appear in the 
program. Such a call might appear as: 


-**■*■- 


CALL XFILE (1,WSA,#(FT=T,USE=W,RECFM=VSB,BLKSIZE=100,LRECL=150,CODE=C)#,40) 


To move ten 8-bit EBCDIC characters from a tape file, convert them to ten internal 12-bit EBCDIC characters, 
and move them to the destination array IRAY, the following statement would be written: 


CALL XREADfWSA,IRAY,*(X 1OC10)¥=,STAT) 


To reverse the procedure and write the ten 12-bit EBCDIC internal characters from the source array IRAY, 
the following statement would be written: 


CALL XWRITE(WSA,IRAY, ^(C1 OX 10)¥=,STAT) 


The following is an example of a tape writing program, showing bit conversion strings in the calling sequence 

to XWRITE: 


INTEGER NFIELDS(156), WSA(520) 


CALL XFILE(l,WSA,T t (FT=T,USE=W,RECFM=F,BLKSZ=3840)#,520) 

CALL XWRITE(WSA,NFIELDS,#(512(B0B52,N3B8))^) 




fin KRONOS, the account card follows the job card in all decks, 
ffThe format of the KRONOS request card is: 


REQUEST,TAPE1 ,NT,F=S 
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The following FORTRAN Extended program would accomplish the same tape reading operation described under 
the COBOL tape reading example: 


INTEGER SZ,CSTRING,IRAY(30),WSA( 46) 


DATA STAT/0.0/,CSTRING/=A(X30C30)=?V,SZ/46/ 


CALL XFILE(1,WSA,?KFT=T,USE=W,RECFM=FB,BLKSZ=150,LRECL=30,CODE=C)*,SZ) 

CALL XREAD(WSA,IRAY,CSTRING,STAT) 

IF(STAT .NE. 0.0) PRINT 10 
10 FORMAT(*FAILED IN READ*) 


The COBOL example defines the file-string and conversion-string parameters in the working storage section. In 
this FORTRAN example, the DATA statement contains the optional definition of the conversion-string symbol 
CSTRING and that symbol is used in the XREAD calling sequence. Conversely, the file-string parameter might 
have been defined in the DATA statement and its symbolic name used as a parameter in the XFILE calling 

sequence. 

The following example accomplishes the same tape writing operation as that described under COBOL tape 
writing example: 






I 


1 


* ’I 




\ 


’•I 


1 


t 


INTEGER FSTRING(5),IRAY(30),WSA(46) 

DATA FSTRING/ : #(FT=T,USE=W,RECFM=FB,BLKSZ=150,LRECL=30,CODE“C)#/ 


I 


I 










L . 


I. 


1 


1 


» 


STAT=0.0 

CALL XFILE( 1 ,WSA,FSTRING,46) 

CALL XWR1TE(WSA,1 RAY,A(X30C30)#,STAT) 
IF(STAT .NE. 0.0)PRINT 20 
20 FORMAT(*FAILED IN WRITE*) 






*« 






COMPASS INPUT/OUTPUT EXAMPLES 


This program reads ten 8-bit EBCDIC characters from a tape file working storage area WS1, converts them to 
internal EBCDIC and places them in area IRAY. After conversion is complete, the EBCDIC characters are 
be written from the area IRAY to workstorage area WS2; from there, the characters will be written to tape. 


to 




*■% 
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Variable 


Operation 


Location 


T1 LIST 

XFILE 

T2LIST 

XFILE 

RDLST 

XREAD 


SA1 


RJ 


SA1 


RJ 


SA1 


RJ 


WRLST 

XWRITE 


SA1 


RJ 




60/FNAMEl ,60/WSl ,60/FSTRl ,60/SlZEl ,60/0 
60/FNAME2,60/WS2,60/FSTR2,60/SIZE2,60/0 
60/WS1,60/IRAY,60/CSTRl ,60/STAT,60/0 

60/WS2,60/IRAY,60/CSTR2,60/ST AT ,60/0 

51L(FT=T,USE=R,RECFM=VSB,BLKSIZE=100,LRECL=150,CODE=C) 
51 L(FT=T,USE=W,RECFM=VSB,BLKSIZE= 100,LRECL= 150,CODEC) 

8L(X10C10) 

8L(C 10X10) 


VFD 


T1 LIST 

T2LIST 

RDLST 

WRLST 

FSTR1 

FSTR2 

CSTR1 

CSTR2 


VFD 


VFD 


VFD 


DATA 

DATA 

DATA 

DATA 


40 


BSS 


WS1 


40 


BSS 


WS2 


60 


BSS 


IRAY 

STAT 

FNAME1 

FNAME2 


1 


BSS 


60/5LFILE1 

60/5LFILE2 

60/40 

60/52 


VFD 


VFD 


VFD 




VFD 
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UTILITY SUBROUTINES 


4 


The four utility subroutines described in this chapter perform a variety of operations including comparison and 
moving of data strings in any of three internal forms — 12-bit ASCII, 12-bit EBCDIC, and 6-bit Display Code. 


UTILITY SUBROUTINE PARAMETERS 


For the calling sequences to the utility subroutines, the following general information applies to the parameters. 


Integer Parameters (length,posit ion) 


In a COBOL calling sequence to a utility subroutine, the length and position parameters must be an integer 

COMPUTATIONAL-1 item, containing no more than 14 decimal digits. In FORTRAN, the parameters may be 
integer constants, variables or expresssions. In COMPASS, the parameters must be the location symbols of 

words containing integer values. 


Real Parameter (status) 


The status parameter in a COBOL calling sequence must be a COMPUTATIONAL-2 item. In FORTRAN, it must 

■ • 

be a real variable name. In COMPASS, it must be the location symbol of a word that contains a real (floating 
point) value. 


String Parameter (xy) 


In a COBOL calling sequence, this parameter is an elementary 01 level alphanumeric literal or a SYNC LEFT 
DISPLAY data item described in the Data Division with VALUE set to the desired two or three character string. 
In FORTRAN, the parameter may be a variable name defined by nH or nL to contain the desired characters; or 
it may be a constant written in nH or nL form or set off by M or £ quotation symbols. In COMPASS, the 
parameter must be written as a location symbol of a word containing the character data. 


XCOMP STRING COMPARISON 


The XCOMP subroutine compares two character strings not necessarily of the same character code. 


FORTRAN Calling Sequence: 


{ 


,position-1 

, position-1 ,positiom-2 


xy,source-1,source-2,status,length 


[CALL] XCOMP 
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XCOMP may be called as a subroutine or used as a function. 

Two characters describing the character sets of the strings to be compared: x describes 
the source-1 character string code; y describes the source-2 character string code as 

follows: 


xy 


12-bit ASCII code character string 


A 


12-bit EBCDIC code character string 


C 


6-bit Display Code character string 

When xy is presented in the call as a literal, it must be written 2Hxy or 2Lxy. When a 
variable name is used in the call, the variable must be defined previously as containing 

the characters for xy left justified. 


X 


Location containing first character in a string to be compared. One source parameter may 
be an actual Hollerith string written in the calling sequence. 

Real variable name in which the result of the comparison is returned: 


source 


status 


Status Value 


Relationship 


1.0 


source-1 .LT. source -2 


0.0 


source-1 .EQ. source-2 
source-1 .GT. source-2 


+ 1.0 


When XCOMP is used as a function, the status value will be returned also as the value 
of the function. 


Required integer constant or previously defined integer variable denoting the number of 
characters to be compared. 


length 


Optional integer constant or variable that indexes the position, with the group, of the 
first character of a string to be compared. If omitted, the default value is 1, denoting 
the leftmost (first character) in the source group. 


position 
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COBOL Calling Sequence: 


^length 

,length,position-1 
,length,position-1,posit ion-2 


ENTER XCOMP USING xy,source-1,source-2,status 


An alphanumeric literal or a data name described in DATA DIVISION as alphabetic or 
alphanumeric, size 2. The data name contains two characters describing the character 
sets of each character string to be compared. The first character (x) describes source-1; 
the second (y) describes source-2 as follows: 


xy 


A 12-bit ASCII character string 


12-bit EBCDIC character string 


C 


6-bit Display Code character string 


X 


Data item containing the first character of each character string to be compared. 


source 


COMPUTATIONAL-2 item to contain a return value representing the result of the com¬ 
parison: 


status 


Status Value 


Relationship 


1.0 


source-1 < source-2 


0.0 


source-2 


source-2 


+ 1.0 


source-1 > source-2 


T—* 


Optional COMPUTATIONAL-1 item representing number of characters to be compared. If 
omitted, the character size of the longer source character field is used. When strings of un¬ 
equal-length are compared, the shorter field is treated as blank-filled on the right to equal 
the longer field size. When given, the length specification overrides actual string lengths. 


length 


Optional COMPUTATIONAL-1 item designating initial character position to be used for 
comparison in the source string. When omitted, the default value is 1, designating the 
first character in the group. If position is designated, length also must be specified. 


position 
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Variable 


Operation 


plist 


SA1 


XCOMP 


RJ 


60/xy,60/source-l,60/source-2,60/status,60/length 

60/position-1 

60/position-1,60/position-2 


VFD 


[{ 


VFD 


Symbolic location of parameter list which must end with word of binary zeros. 

Symbolic location of literal containing two characters, left adjusted, describing the code 
form of each character string. The literal may be described as either 2Hxy or 2Lxy, the 
fill characters of blank or zero are of no consequence, x describes the character set of 

source-1; y describes the character set of source-2, as follows: 


12-bit ASCII code character string 


A 


12-bit EBCDIC code character string 


C 


6-bit Display Code character string 
Symbolic location of word containing the first character in a string. 


X 


source 


Location symbol of a word in which a floating-point value is returned; the value reflects 
the result of the string comparison, as follows: 

Status Value 


status 


\ 

b 


Relationship 




1.0 


source-1 > source-2 
source-1 

source-1 < source-2 

Symbolic location of a word containing an integer value representing the number of 
sequential characters to be compared. 


0.0 


source-2 


+ 1.0 


length 


Optional symbolic location of an integer value indicating the position of the first char¬ 
acter in each string. When comparison begins with the first character in the source group, 

the position is 1. The default value is 1, when the parameter is omitted. 


position-s 

position-d 
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COLLATING SEQUENCE 


The type of source-1 string determines the collating sequence used: 

AC specifies the ASCII collating sequence (numbers low) 

CA specifies the EBCDIC collating sequence (numbers high) 

XA or XC specify the 8-bit string is to be case-folded logically (according to table on page A-7 of 
appendix A) during comparison, so that upper and lower case letters are equal. 

AX or CX specify upper and lower case letters are to retain their identity and collate separately. 


* 




In the 8-bit ASCII and EBCDIC collating sequences, ascending binary code values correspond to ascending col- 

provide a variation through installation option. Appendix A gives 




lating values. 6-bit Display Code, however, can 

the 6-bit Display Code collating sequences. 


1 


COMPARISON EXAMPLES 




The examples for each utility routine given in this chapter use strings from the character groups S1DISPC and 
S2ASCII. Each group is stored in central memory; S1DISPC is stored in Display Code in 6-bit bytes as follows: 






« 


)r 




» 




S2ASCII is stored in ASCII code in 12-bit bytes as follows: 


A five-word work storage area WS1 also will be used. 




/ 


f 
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Example of FORTRAN comparison: 

Compare 20 characters, starting with character position 1 of S1DISPC and character position 4 of S2ASCII. 
Return the status information in the variable XSTAT. 


INTEGER S2ASCII(5),S1DISPC(2) 






N 


s 


■s 


CALL XCOMP(2LXA,S 1 DISPC,S2ASCII,XSTAT,20,1,4) 


S 


XCOMP as a function, as follows: 


The comparison may be performed in a replacement statement, using 




H 


XSTAT=XC0MP(2LXA,S1DISPC,S2ASCII,XSTAT,20,1,4) 

IF(XSTAT) 10,20,30 




X 


\ 


L 


The IF statement is used to direct the execution of appropriate parts of the program, depending upon 
the results of the comparison. 




■v 


* 




Example of COBOL comparison: 

Compare 20 characters, starting with character position 1 of S1DISPC and character position 4 of S2ASCII. 
Return the status information in item XSTAT. 


!■ 


J 




4 


i 


< 




I 


DATA DIVISION. 

EXWHY PICTURE(XX) VALUE = 

S1DISPC PICTURE X(20). 

S2ASCII PICTURE X(50). 

XSTAT USAGE IS COMPUTATIONAL-2. 

LENGTH USAGE IS COMPUTATIONAL-1 VALUE IS 20 PIC 99. 
POSONE USAGE IS COMPUTATIONAL-1 VALUE IS 1 PIC 99. 
POSTWO USAGE IS COMPUTATIONAL-1 VALUE IS 4 PIC 99. 


\ 


01 


\ 


01 


01 


0 


01 


01 




01 


PROCEDURE DIVISION. 


ENTER XCOMP USING EXWHY,S1DSIPC,S2ASCII,XSTAT,LENGTH,POSONE,POSTWO. 




+ 


*i - 
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Example of COMPASS comparison: 


Compare 20 characters, starting with character position 1 of S1DISPC and character 4 of S2ASCII. Return 
the status information in location XSTAT. 


Location 


Operation 


Variable 




PLIST 

XCOMP 


SA1 


RJ 




PLIST 


42/0,1 ^XY,42/0,18/S 1DISPC.42/0,18/S2ASCII.42/0,18/XSTAT 
42/0,18/LGTPOS.42/0,18/P 1,42/0,18/P2.60/0 


VFD 


VFD 


XY 


18/2LXA.42/0 


VFD 


S1DISPC 
S2ASCII 
XSTAT 
LGTPOS 


BSS 


2 


BSS 


5 


BSSZ 

DATA 

DATA 

DATA 




20 


PI 




P2 


4 


XMOVE STRING MOVE 


The XMOVE routine moves a designated character string from a source location to a destination location, trans¬ 
lating from one character code to another during the move. 


When no character conversion is involved, XMOVE transfers character strings in word groups. If character con¬ 
version is specified, the move is done character by character. The XMOVE subroutine operates on character 
strings in a left-to-right sequence. The programmer must be aware that characters may not be moved as expected 
when the source and destination fields overlap. 


FORTRAN Calling Sequence 




,position-s 

,position-s,position-d 


) 


CALL XMOVE (xy,soured,destinatioft,length 


escribes the source, y 


Descriptors for source and destination string character sets: 

describes the destination. The descriptors may be two or three characters, as follows: 


x 


xy 


String of 12-bit characters in ASCII 


A 


String of 12-bit characters in EBCDIC 


C 


String of 6-bit characters in Display Code 


X 
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Three-character parameters begin with X: 


Moves 6-bit to 12-bit ASCII, with case reversed 


XAL 


Moves 6-bit to 12-bit EBCDIC, with case reversed 


XCL 


When XAL and XCL codes are used, the characters appear in the destination string in 
lower case rather than in the usual upper case. Special symbolic characters are also 
case-reversed; as a result, printable characters may become non-printable. A table of upper 
and lower case characters appears on page A-7. 

The xy parameter may be written as a literal constant or as a variable previously defined 
to contain the appropriate characters. In either case, the variable or constant should be 
defined as 2Hxy or2Lxy, or as 3Hxy or 3Lxy,if case reversal is used. 

Starting location of source character string to be moved, given as a variable name, an 
array name, a subscripted array name, or optionally as a Hollerith or literal constant 

when the source string code type is X. 

Starting location of destination given as a variable name, an array name, or a subscripted 
array name. 

Integer or integer variable designating the number of characters in the string to be 
moved. 


source 


destination 


length 


Optional integer or integer variable that indexes the first character in the source string 
to be moved. If not given, the default value is 1, denoting the leftmost character is the 

first character in the string. 

Optional integer or integer variable that indexes the first receiving character in the des¬ 
tination string. If not given, the default value is 1, denoting the leftmost character is 

the first character in the string. 


position-s 


position-d 


COBOL Calling Sequence: 


,length 

,length-position-s 
,length,position-s,position-d 


ENTER XMOVE USING xy,source,destination 


Data name or alphabetic literal descriptors for source and destination string character 
codes: x describes the source, y describes the destination. The descriptors may be two 

or three characters, as follows: 


xy 


String of 12-bit character in ASCII 


A 


String of 12-bit character in EBCDIC 


C 


String of 6-bit character is Display Code. 


X 
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Three-character parameters begin with X: 


• ----- 


Moves 6-bit to 12-bit ASCII, with case reversed 


XAL 


Moves 6-bit to 12-bit EBCDIC, with case reversed 


XCL 


When XAL and XCL codes are used, the characters appear in the destination string in 
lower case rather than in the usual upper case. Special symbolic characters are also case- 
reversed; as a result, printable characters may become non-printable. A table of upper 
and lower case characters appears on page A-7. 


The size of xy field should be two- or three-character alphabetic or alphanumeric data 
names or literals. 


Starting locations of source character string to be moved, given as a data-name, a literal 
subscripted data-name, or an alphanumeric literal. 


source 


Starting location of the destination field into which a character string is to be moved, 
given as a data-name or as a literally subscripted data-name, or as an alphanumeric literal. 


destination 


The value of this optional COMPUTATIONAL-1 item denotes the number of characters 
to be moved. The COBOL default value is the length of the destination field in number 
of characters. If the default value is used and source string and the destination field are 
not of equal length, the source string is truncated or filled with blanks to fit. When 
given, the length specification overrides the actual character length of the destination field. 


length 




Optional COMPUTATIONAL-1 data-name that indexes the first character in the source 
string to be moved. The default value is 1, indicating the left-most character in the 
group is the first character in the string. 


position-s 


Optional COMPUTATIONAL-1 data-name that indexes the first receiving character in the 
destination field. The default value is 1, indicating the leftmost character in the destination 

field. 


position-d 


COMPASS Calling Sequence: 


Variable 


Operation 


plist 


SA1 


XMOVE 


RJ 


60/xy,60/source,60/destination, 60/length 

60/position-s 

60/position-s,60/position-d 


VFD 


{ 


VFD 


,60/0 
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* ^ 


\ 


Symbolic location of parameter list which must end with word of binary zeros. 

Symbolic location of descriptors for source and destination string character codes: 
describes the source; y describes the destination. The descriptors may be two or three 

characters, as follows: 


plist 


Ti 


X 


xy 


String of 12-bit characters in ASCII 


A 


"S. 


•li 


String of 12-bit characters in EBCDIC 


C 


String of 6-bit characters in Display Code 


X 




\ 




1 


v. 


Three-character parameters begin with X: 


\ 


% 


Moves 6-bit to 12-bit ASCII, with case reversed 




XAL 


Moves 6-bit to 12-bit EBCDIC, with case reversed 


XCL 


\ 


.• r 


*. 


I 


When XAL and XCL codes are used, the characters appear in the destination string in 
lower case rather than in the usual upper case. Special symbolic characters are also case- 
reversed; as a result, printable characters may become non-printable. A table of upper 

and lower case characters appears on page A-7. 

The: xy parameter may be written as a literal or a variable previously defined to contain 
the appropriate characters. In either case, the variable or literal should be defined as 

2Hxy or 2Lxy, or when case reversal is used as 3Hxy or 3Lxy. 

Starting location of area containing the character string to be moved. 


\ 


'■L 




*• 






1 






I 


source 


' 


Starting location of destination area to receive the character string. 

integer value, denoting length of character 


A 


destination 


Symbolic location of word containing an 
string to be moved. 

Symbolic location of integer value indicating the position of the first character in the 

string (position-s) and the first receiving character in the destination string 
(position-d). If not given, the default value is 1, denoting the left-most character position. 


length 


% 


position-s 

position-d 


source 




. 


i 


N. 
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MOVE EXAMPLES 


The character strings described for the COMPARISON EXAMPLES on page 4-5 are to be used for these 

examples. 




Example of FORTRAN move: 


Move a 20-character ASCII code string, starting with character 4 of the group stored in S2ASCII, convert 
the string to 12-bit EBCDIC and place it in array WS1, starting with character 1. 


INTEGER S2ASCII(5),WS1(5) 


CALL XMOVE (2HAC,S2ASCII,WS 1,20,4) 


Omission of a value for parameter position-d implies character position 1 by default. 


Example of COBOL move: 


XY PIC XX VALUE *AC=£. 

S2ASCII PIC X(50). 

WS1 PIC X(50). 

LENGTH USAGE IS COMPUTATIONAL-1 VALUE IS 20 PIC 99. 
POSIT USAGE IS COMPUTATIONAL-1 VALUE is 4 PIC 99. 

WS2 PIC X(60). 


01 


01 


01 




01 


01 


01 


ENTER XMOVE USING XY,S2ASCII,WS1,LENGTH,POSIT. 




This example moves a 20-character 12-bit ASCII code string starting with character 4 of the group stored 
in S2ASCII, converts the string to 12-bit EBCDIC, and places it in WS1, starting with character 1. 




ENTER XMOVE USING =£AC*,S2ASCII,WS2. 




This example moves a 25-character, 12-bit ASCII code string from S2ASCII, converts the string to 12- 
bit EBCDIC, appends five 12-bit EBCDIC spaces on the right, then places the entire string in WS2. 
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Example of COMPASS move: 


Move a 20-character ASCII code string starting in character position 4 of S2ASCII, convert it to 12-bit 
EBCDIC and place it starting in character position 1 of WS1. 


Variable 


Operation 


Location 


PLIST 

XMOVE 


SA1 




42/0,18/XY 
42/0,18/S2 ASCII 
42/0,18/WSl 

42/0,18/LEN 

42/0,18/LEN+l 


VFD 


PLIST 


VFD 


VFD 


VFD 


VFD 


1 


BSSZ 




18/2LAC,42/0 


VFD 


XY 


5 


BSS 


S2ASCII 


5 


BSS 


WS1 


20,4 


DATA 


LEN 


XPACK STRING COMPRESSION 


word internal format containing 12-bit 


This subroutine will compress 8-bit character data from a 5-character per 
ASCII or EBCDIC characters. When packing is performed, seven 8-bit character codes are right adjusted in a 

word; and the leftmost 4 bits, as well as any unused character positions are set to binary zero. The packed 


word format is: 




8 


16 


24 


32 


40 


48 


59 56 


CH 


CH 


CH 


CH 


CH 


CH 


CH 


CM 


0 


7 


6 






WORD 


3 






No conversion of character data takes place during string compression. 

Several characters are moved at once; when source and destination fields overlap, the characters may not be 
moved as expected. 
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FORTRAN Calling Sequence: 


CALL XPACK(string-u,string-p,length[,position]) 


Symbolic location of 12-bit (unpacked) character source string. 


string-u 


Symbolic location of 8-bit (packed) character destination string. 


string-p 


Number of characters to be moved and packed; may be an integer constant or variable. 


length 


Optional integer constant or variable that indexes the source character group for the 
first character in the string to be packed. If omitted, the default value is 1, indicating 
the first character in the source group. 


position 


COBOL Calling Sequence: 


} 


{ 


,length 

,length,position 


ENTER XPACK USING string-u,string-p 


Location of 12-bit (unpacked) character source string 


string-u 


Location of 8-bit character (packed) destination string. The string must correspond to a 
word boundary. Every 01 item in COBOL begins on a word boundary. 

Optional COMPUTATIONAL-1 item giving the number of characters to be moved and 
packed. If omitted, the default is the length in number of characters of the shorter 
string. Binary fill completes the receiving field as needed. 

Optional COMPUTATIONAL-1 item which indexes the first character in string-u to be 
packed in string-p. The default value is 1. 


string-p 


length 


position 


COMPASS Calling Sequence: 


Variable 


Operation 


Location 


plist 


SA1 


XPACK 


RJ 


60/ string-u 
60/string-p 
60/length 
60/position 


VFD 


plist 


VFD 


VFD 


VFD 


60/0 


VFD 


Symbolic location of parameter list which must end with word of binary zeros. 


plist 


Storage location of 12-bit (unpacked) character string source. 


string-u 
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V 




Storage location of 8-bit (packed) character string destination. 

Symbolic location of an integer value giving number of characters in the string to be packed. 

Optional symbolic location of an integer value indicating the character position within 
the group of the first character of the string to be packed. Default value is 1. 


string-p 


length 


[ 


position 


i 


PACK EXAMPLES 


Example of FORTRAN packing: 

Pack into array WS1 a 20-character string starting with character 4 of the ASCII code group stored in 
array S2ASCII. 


INTEGER WS1(3),S2ASCII(5) 




CALL XPACK(S2ASCII,WS 1,20,4) 

In the destination array WS1, the first two words will be filled with / characters each, the third word 
will contain 6 characters and an 8-bit byte filled with binary zeros. 


V 


V 




Example of COBOL packing: 

Pack a 20-character string into WS1 starting with character 4 of the ASCII code group 

S2ASCII. 


stored in array 


P l. 


S2ASCII PICTURE X(50). 

WS1 PICTURE X(30). 

LENGTH USAGE IS COMPUTATIONAL-1 VALUE IS 20 PIC 99. 
POSIT USAGE IS COMPUTATIONAL-1 VALUE IS 4 PIC 99. 


01 


01 


01 


01 


* 




*« 


ENTER XPACK USING S2ASCII,WSl,LENGTH,POSIT. 


X 


• = 


# 






V 
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Example of COMPASS packing: 


Location 


Operation 


Variable 


SA1 


PLIST 

XPACK 


RJ 


PLIST 

S2ASCII 


60/S2 ASCII, 60/WSI, 60/LENGTH, 60/LENGTH+1,60/0 


VFD 


BSS 


5 


WS1 


BSS 


3 


LENGTH 


DATA 


20,4 


This example will pack a 20-character string starting at character 4 of the group stored starting in 

S2ASCII into the storage area WS1. 


XPAND STRING EXPANSION 


After character strings are packed and written to file storage, the file information density is increased and 
storage is used more economically. If the character strings are required for use in central memory again, they 
must be unpacked into 12-bit bytes for proper handling. The XPAND routine reverses the process performed 
by XCOMP and unpacks the 8-bit compressed string into words containing five 12-bit character bytes. 


FORTRAN Calling Sequence: 

[CALL] XPAND(string-u,string-p, length [,position]) 


y'*" 


Location of the 8-bit unpacked characters in the string source area. 


string-u 


Location of the 12-bit packed characters in the string destination area. 


string-p 


length 


Integer constant or variable indicating the number of characters to be unpacked. 


Integer constant or variable which indexes the first character of the string to be unpacked. 
If omitted, the default value is 1. 


position 
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COBOL Calling Sequence: 


}] 




,length 
w ,length,position 


ENTER XPAND USING string-u,string-p 


the destination area of the string. 


Location where the unpacked string is to be placed 

Location of the packed string in the string source area; this location must correspond 
with a word boundary; in COBOL, it must be a 01 item. 


string-u 


string-p 


Optional COMPUTATIONAL-1 item giving number of characters to be unpacked. If 
omitted, the default is the character length of the shorter string; binary zero fill com- 

pletes the destination area if needed. 

Optional COMPUTATIONAL-1 item indexing the position of the first character in the 
string-u (destination) area. If omitted, the default value is 1, designating the leftmost 
character position in the destination area. 


length 


position 


COMPASS Calling Sequence: 


Variable 


Operation 


Location 


plist 


SA1 


XPAND 


RJ 


[ 


,60/iength 

,60/leng1h,60/positiom 


60/string-u,60/string-p 


VFD 


plist 


Symbolic location of parameter list which must be terminated by a word of binary zeros. 

Storage location of unpacked 12-bit character in the destination area. 

Storage location of packed 8-bit character string in the source area. 

Symbolic location of integer value giving number of characters in the string to be 
unpacked. 

Optional symbolic location of integer value indicating the position of the first character 
the string-u (destination) area. If omitted, the default value is 1, designating the left¬ 
most character in the destination area. 


plist 


string-u 


string-p 


ength 


position 


m 
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EXPAND EXAMPLES 


Example of FORTRAN expand: 


Reversing the example given for XPACK, expand a 20-character string that has been read trom a file into 
central memory storage array WS1. Restore the expanded string to array S2ASCII, starting at character 

position 4. 




INTEGER WS1 (3),S2ASCII(5) 


CALL XPAND(S2ASCII,WS 1,20,4) 


Example of COBOL expand: 

Reversing the example given for XPACK, expand a 20-character string that has been read from a file into 
memory storage area WS1. Restore the expanded string to area S2ASCII, starting at character position 4. 

The calling sequence would be: 


ENTER XPAND USING S2ASCII,WS1,LENGTH,POSIT. 


Example of COMPASS expand: 


Reversing the example given for XPACK, expand a 20-character string that has been read from a file into 
memory storage area WS1. Restore the expanded string to area S2ASCII, starting in character position 4. 

The COMPASS calling sequence would be: 


Variable 


Operation 


Location 


PLIST 

XPAND 


SA1 


RJ 


42/0,18/S2 ASCII 
42/0,18/WSl 
42/0,18/LENPOS 
42/0,18/LENPOS+1 


VFD 


PLIST 


VFD 


VFD 


VFD 


1 


BSSZ 


3 


BSS 


WS1 


5 


BSS 


S2ASCII 

LENPOS 


20,4 


DATA 
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COPY8P PROGRAM 


C0PY8P is a separate utility program used to copy IBM 360/370 print files to CDC CYBER 70 compatible print | 
files. Upper and lower case character capability is maintained, as loss of 8-bit significance is avoided. IBM 
options with respect to record type, block type and print format selection are available. COPY8P does not use 
Record Manager in copying the print files; therefore, no file cards are needed in conjunction with this program. 


CALLING COPY8P 


COPY8P is called by a control card in the job deck. Certain mandatory information, such as input and output 
local file names, is specified by control card parameters. The control card is written: 


COPY8P,in-lfn,out-lfn,options. 


Local file name of the input file containing 8-bit ASCII or EBCDIC data in IBM 360/ 

370 format. Under normal conditions, the file is on magnetic tape made available to the 
job by a REQUEST card. Files copied from tape to disk by a utility routine are accept¬ 
able as input as long as the same 8-bit characters and control information are still available. 
Such a copy of a file from tape to disk, should provide one SCOPE logical record per 
block. 


in-1 fn 


Local file name of output tape or disk file to contain data in a format suitable for the 
printer. If full upper and lowercase information is to be printed, the file output must be 
directed to a printer with an extended character set print train by use of the DISPOSE 
control card. See Operating System Interface, section 6. 


out-lfn 


COPY8P OPTIONS 


The following parameters may be specified as required on the COPY8P control card. If a parameter is not 
specified, the indicated default value is used. Parameters must be separated by commas. 


(Default: ,RECFM=U) 


,RECFM=rr 


Describes the record format of the input file, Values for rr are: F, V, U, FB, and VB. They have the same 

the equivalent 360/370 JCL (Job Control Language) specification. 


meaning as 




(Default: ,BLKSIZE=137) 


nnnn 


Defines the maximum block length in 8-bit characters. The parameter nnnn is a decimal count. This parameter 

has the same meaning as the equivalent 360/370 JCL specification. 
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(Default: omitted) 


,LRECL=nnnn 


Defines the maximum logical record size in 8-bit characters.. The maximum value which can be specified for 

This parameter has the same meaning as the 


LRECL is 5120, the parameter nnnn is a decimal count, 
equivalent 360/370 JCL specification. If omitted, LRECL is assumed to be the same as BLKSIZE. 


(Default: ,CODE=C) 


,CODB=(AiC) 


Defines the character set code present on the input file. A means ASCII; C means EBCDIC. This parameter 
must match the code parameter used on the input fie REQUEST control card. 

(Default: omitted) 

Causes output to be folded to a 64-character set, 6-bit character representation, for printing. Special characters 
not having a 64-character set representation will not be printed. If omitted, upper and lowercase information 

is preserved for printing. 

Note: When a print file is folded, a system restriction prohibits the character pair :: from occurring at 
certain points in a print line corresponding to ends of central memory words. This possibility i 
tored by COPY8P. If found, the second : is replaced by a space, so that inadvertent line termination will 

not occur. 

An output file produced by COPY8P to be printed with full upper and lower case characteis must be directed 
to the GDC 595-6 printer through the DISPOSE control card written in one of two formats: 


,FOLD 


s rnom- 


DISPOSE,lfn,*PE. 


DISPOSE,lfn,PE. 


the logical file name given as the out-lfn parameter in the COPY8P control card, and is the file to 
be printed. The *PE parameter indicates the file is to be disposed at end of job rather than when the 

control card is encountered. 

extended character set file can be printed through TELEX at a local ASCII 


lfn is 


| In KRONOS, an 


the COPY8P control card, the out-lfn contains only upper case characters; out- 

it may be disposed, using the DISPOSE control card in 


If the FOLD option is used on 
lfn may be copied directly to the job OUTPUT file; or 

one of the following formats: 


DISPOSE, lfn,*PR. 


the COPY8P control card. 


The logical file name (lfn) is the sarhe as the out-lfn parameter given 


on 
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,FMT=( 112131 Al M) 


(Default: ,FMT=A) 


Defines the print spacing convention to be used. 1, 2, and 3 yield single, double and triple space. A indicates 
the first character of each line image is assumed to contain a format control character. The following format 
control characters are recognized when A is specified: 


Triple space before printing 


No space before printing 


+ 


Page eject before printing 


1 


Single space before printing 


blank 


other 


Single space before printing 


Double space before printing 


0 


M assumes the first character of each line image is one of the following IBM 1403 printer hardware control 
characters: 


• -• Tl I • I 


Hexadecimal 

Code 


Meaning 


Write, no space after print 


01 


Write, space 1 after print 


09 


Write, space 2 after print 


11 


Write, space 3 after print 


19 


Write, page eject after print 


89 


Space 1 line 


s' 


OB 


Control commands, the remainder 


Space 2 lines 


13 


of the line is not printed 


Space 3 lines 


IB 


Page eject 


8B 


Write, space 1 after print 


Other 


CHARACTER SET RESTRICTIONS 


The extended printer character set used is the 95-character ASCII character set available on a 595-6 print train. 
Certain EBCDIC characters input to COPY8P may be converted to other graphics according to the table which 
follows. If an ASCII or EBCDIC character is input that does not correspond to an available character, a blank 
is printed. The print conversion for COPY8P is not identical to that given in appendix A for the other routines. 
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The preceding table was produced from card input by using the following code to govern column spacing and 
line skipping. This table is a valid example of card input and data code conversion: 


CDFIL.CM65000*T1?0. 

COPYBR *INPUT *TAPE01• 
RFWIND(TAPE01) 

FILF(TftPEOltBT=C*RT=F,MRL 


60 * SDS=YES) 
FILE (TAPE02*BT=C. RT=iJ.MRL = ?80 ♦ SDS = YES) 
REWIND(T APEO 1 ) 


FTN 


LDSET(FTLES=TAPE01/TAPE0?) 


LGO 


DISPOSE(TAPF02**PE) 
7/8/9 


flag card 


(copied to tape file TAPE01 by COPYBR control card ) 


card input 


flag card 

7/8/9 


PROGRAM CDPNT (TAPE0?=66.TAPEO1=66♦TAPE2=TAPF02*TAPE 1=TAPEO1) 

DIMENSION WS1(20) 

CALL XFILF(1• WS1* *(FT=C*USE=R)?0) 

CALL XFILF<2,WS2,*(FT=P*USE=W,FMT=A)*, 32) 

CALL XREAD(WSl♦ARRAY , t (X80A80)^*ST AT) 

0.0) CALI EXIT 


WS2 (3?)» ARRAY(16) 




100 


IF (STAT 

CALL XWRITF(W32* ARRAY (Al*X0X10*A79)/*STAT 


LT 




GO TO 100 


FND 


7/8/9 

6/7/8/9 




See section 6 } System Interface, for discussion of FILE, LDSET and DISPOSE control cards as used in this 
example. 


Note that in a KRONOS 2.1 job, an account card will follow the jobcard. 
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SYSTEM INTERFACES 


This section describes a variety of system interfaces that occur with Record Manager, and CYBER LOADER 
when extended character set (ASCII and EBCDIC) files are processed by 8-bit subroutines. 


OPERATING SYSTEM INTERFACE 


The central memory requirements for jobs involving 8-bit subroutines are specified on the job control card. 

Usage of all 8-bit subroutines will require an additional 14K (octal) words if all modules are referenced. For 
SCOPE 3.4 nine-track tape requirements also should be given in the nT parameter on the job card; for KRONOS, 
requirements are given on a RESOURC card. 


- - 


TAPE FILES 


ASCII or EBCDIC on either seven or nine-track IBM sequential tapes can be processed by the 8-bit sub¬ 
routines. Seven-track tapes are requested for the job in the manner described in the KRONOS 2.1 and SCOPE 
3.4 Reference Manuals. 


Nine-track tape files to be processed by 8-bit subroutines or by the COPY8P program should be made available 
to the job by the REQUEST card. 


The programmer should be fully familiar with the REQUEST control card; a complete description of the nine- 
track tape parameters can be found in the KRONOS 2.1 and SCOPE 3.4 Reference Manuals. 


All code conversion parameters should be omitted from nine-track requests for processing by 8-bit subroutines, 
since conversion to or from ASCII or EBCDIC is done by the 8-bit subroutines. If either US or EB is given, 
it will be overridden by the CM=NO parameter on the Record Manager FILE card. 


Input tape files can be copied to disk or other devices that can be substituted for tapes, provided the data 
format is identical to that of IBM tapes when they are read by Record Manager. 
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CARD FILES 




*. 


All card files input to the 8-bit subroutines must be in ace-form binary format. This format is fully described 
in appendix E. 


v 


The deck setup of such a job would be: 




7 


*. 




8 


FLAG CARD 




*v 


Free-Form Binary Format 
Data Deck for SCOPE 3.4 
or Literal Input for 

KRONOS 2.1 


» 


F LAG CA R D 


7 


*• 


8 


I 






N 


■* 


i 


- 


i 


L 


i 




L 






\ 


* 


h 




•• 


Card output files will be punched in free-form binary format. At the end of a run that produces card output, 
the disposition code P8 must be specified on the DISPOSE control card. The card is written in one of the 

following forms: 


i 




KRONOS 2.1 


SCOPE 3.4 






DISPOSE, lfn=P8. 


1 




| The logical file name (lfn) is the name of the file containing the card images to be punched. In SCOPE 3,4, 

the asterisk in the *P8 parameter indicates the file is to be disposed at end-of-job rather than when the control 

card is encountered in the job. 


■=. 


"L 


-- 
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PRINT FILES 


When an extended character set output file produced by COPY8P or the 8-bit subroutines is to be printed with 
full upper and lower case characters, the file must be directed to the CDC 595-6 printer through use of the 

DISPOSE control card written in one of the following forms: 




SCOPE 3.4 


DISPOSE,lfn,*PE. 


The logical file name (lfn) is the name of the file to be printed. The asterisk in the *PE parameter indicates 
the file is to be disposed at end-of-job, rather than when the control card is encountered. 


KRONOS 2.1 does not support the CDC 595-6 printer. 


RECORD MANAGER INTERFACE 


Since Record Manager cannot block or deblock records in IBM format, it is necessary to include a FILE card 
specifying a transparent mode of operation of Record Manager for each IBM 8-bit sequential tape file to be 
processed by the 8-bit subroutines (excluding the COPY8P program). This card is written: 

FILE(lfn,parameter string) 


Parameters on the FILE card provide record and block information which is used to update the file information 
table (FIT) when a given ASCII or. EBCDIC character file is opened the first time in the job. Refer to the 
Record Manager Reference Manual for complete information on this card. 


Under SCOPE 3.4, the loader control card LDSET should be included to list each file for which a FILE card 
appears in the job deck. See Loader Interface in this section. 


TAPE FILES 


The parameters required on the FILE card for tape files are: 


BT=K 


RT=U 


Record Type 


Records/block 


RB=1 






t 


, since BLKSIZE refers to 


BLKSIZE*8 


MBL=nnnn 


Maximum Block Size 




6 


8-bit characters, and the Record Manager expects sizes 
in terms of 6-bit characters 


MRL=nnnn 


Maximum Record Length 


CM=NO 


Conversion Mode 


1 


^The notation 


indicates that the expression, m, is evaluated as the smallest integer greater than 
the real value of m. A fraction is always rounded up to the next higher integer. 
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For 9-track tape input/output two additional parameters are necessary for noise record skipping: 


MNR=24 


Minimum Record Length 


MNB=24 


Minimum Block Length 


For a COBOL calling program, the clause BLOCK CONTAINS nnnn CHARACTERS should be included with 
each 8-bit file description; otherwise, Record Manager may diagnose an inadequate BFS specification. 


•* 




V, 


CARD FIL 




*• 




y 


1 


The user must specify the following information to Record Manager as FILE card parameters to permit reading 
or writing of card image files: 


V 






if 


BTC 

RT=F 

MRL=160 


\ 




PRINT FILES 


For Record Manager handling of files formatted for the printer, the following FILE card parameters must be 
given: 




■"*1 


* 


r 


i 


* 


I 


BTC 

RT=U 

MRL=280 


1 


■ I 
1 


% 


\ 


\ 


LOADER INTERFACE 


% 


The loader directive LDSET is used to control the load process under a variety of conditions. When Record 
Manager is to process tape, card and print files, and the FILE control card is present in the job deck, the 
LDSET card ensures that library programs are loaded for processing specified files. In this case, the LDSET 

card is written: 




LDSET(FILES=lfn 1 ,lfn 2 ,.) 


*• 


The file names on the card refer to the tape, print, or card files used in a given run of the job to which a 
FILE card pertains. 


OMITTING UNNEEDED 8-BIT MODULES 


K 


If not all features of the 8-bit subroutines package are used, some 8-bit modules may be omitted from the 
program being loaded to conserve space in the field length. The OMIT option on the LDSET card is written: 


I 


LDSET(OMIT=name/name . ... ) 
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The names given are entry points of the modules to be omitted from the load. Because the names given below 

contain the special character, period, they must be surrounded by dollar-sign characters in the name list as 

follows: 


LDSET(OMIT=$T8.TSTC$/$T8.TSTT$) 


Entry Name 


Module Function 


T8.TST6 


Selector Expressions on Internal Data 


T8.TSTT 


Selector Expressions on Tape Data 


T8.TSTC 


Selector Expressions on Card Data 


Conversion, Internal to Tape 


T8.CN6C 


Conversion, Internal to Card 


Conversion, Internal to Print 


T8.CN6P 


Conversion, Tape to Internal 


T8.CNT6 


T8.CNC6 


Conversion, Card to Internal 


'"N 


LOADER CONSIDERATIONS 


The XREAD and XWRITE routines do not reference any of the above entry point names; rather, they depend 
on XFILE to place an appropriate address in the working storage area. The listed entry names are referenced 

only by XFILE. 


In an overlay situation, it may be desirable to place XFILE in a different overlay from XREAD or XWRITE; 
but it is important to place the working code into a module common to all, as they share subroutines and some 

The LOADER Reference Manual contains instructions for this procedure as well as for overlay 


common areas, 
and segment loading. 
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It is assumed that the user of the 8-bit subroutines is familiar with COBOL and has access to the IBM 360/370 
COBOL Language and COBOL Programmer's Guide publications. This section is intended to clarify the usage of 
8-bit subroutines in connection with IBM 360/370 compatible tape files created by or to be read by an IBM 

COBOL program. The examples assume that the record description for the file used in the IBM COBOL 
and the CDC COBOL program is established. The writing of a conversion string for the reading and converting 
of an IBM COBOL tape file to internal CDC format will be demonstrated. 


A tape file created by an IBM COBOL program may contain any combination of the following data types: 
(The letters in parentheses are the T values given in table 2-1.) 


8-bit characters (X) 


Half-word integers, 16 bits (H) 


Whole word integers, 32 bits (W) 


Double word integers, 64 bits (G) 


32-bit floating point (F) 


64-bit floating point (L) 




Packed decimal (internal decimal) (P) 


Decimal signed numeric (external decimal) (S) 


An IBM COBOL program cannot create 128-bit extended precision floating point data. Any of the above data 
types also can be considered to be bit string data (B). To select the appropriate m value for each of the data 
types, refer to table 2-1. A complete description of IBM data type formats is given in appendix C. 
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The following table shows the relationship between IBM COBOL USAGE clauses, picture clauses IBM byte 
storage allocation, and the corresponding 8-bit Tm values to be used in converting such data types. 


Table 7-1. IBM COBOL - Tm Values 


IBM 

Boundary 

Alignment 


IBM 8-Bit Bytes Used 


IBM COBOL 
USAGE Category 


(m derived from this) 


T 


Picture Format 


1 per character or digit 
(except for V in external 
floating point) 18 digit 
limit 


X 


1. alphabetic 

2. alphanumeric 

3. report format 

4. external 

floating point 

form 


DISPLAY 


none 


N or X 1 per digit, limit 18 


numeric unsigned 


DISPLAY 


none 


1 per digit, limit 18 




numeric signed 


DISPLAY 


none 


H 2 


halfword 


1 to 4 digits 


COMP (binary) 


4 


W 


fullword 


5 to 9 digits 


COMP (binary) 


G 8 


fullword 


10 to 18 digits 


COMP (binary) 


4 (short precision) 


F 


fullword 


COMP-1 (internal 
floating point) 


8 (long precision) 


L 


double word 


COMP-2 (internal 

floating point) 


1 byte per 2 digits plus 
1 byte for low order digit 

and sign 


P 


numeric unsigned 
or signed 


none 


COMP-3 (packed 
decimal) 


If IBM computational items are mixed with other elementary items in the data record description, slac bytes 
may be present on the IBM file to assure the proper byte alignment for each COMPUTATIONAL, COMPUTA¬ 
TIONAL-! and COMPUTATIONAL-2 item. For instance, the byte address of the first byte of a half-word 
binary item must be divisible by 2; the byte address of a full or double-word binary item must t^ divisiWe by 
4; the byte address of a COMPUTATIONAL-1 item must be divisible by 4; the address of a COMPUTATIONAL-/ 

item must be divisible by 8. 

The following examples in figure 7-1 show the relationship between some IBM COBOL elementary data descrip¬ 
tion entries. and the corresponding 8-bit Tm values. Table 7-1 was used to derive the Tm value. If no usage 

clause is specified, usage is assumed to be DISPLAY. 
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Case 


Elementary Data Entry 


USAGE Category 


Tm 


01 EG1 PIC A(20). 


1 


DISPLAY-alphabetic 


X20 


2 


01 EG2 PIC X(53). 


DISP LAY-alphanume ri c 


X53 


3 


01 EG3 PIC $999,999.99-. 


DISPLAY-report form 


X12 


4 


01 EG4 PIC +.9(8)E+99. 


DISPLAY-external floating 
point form 


X14 


5 


01 EG5 PIC 9(8)V99. 


DISPLAY-numeric unsigned 


N10 


(or XI0) 


6 


01 EG6 PIC S9(8)V99. 


DISPLAY-numeric signed 


S10 


7 


01 EG7 PIC S9(3)V9 COMPUTATIONAL. 


COMP, 1-4 digits 


H 


8 


01 EG8 PIC 9(6) COMPUTATIONAL. 


COMP, 5-9 digits 


W 


01 EG9 PIC 9(8)V9(9) COMPUTATIONAL. 


9 


COMP, 10-18 digits 


G 


10 


01 EG 10 COMPUTATIONAL-!. 


COMP-1 


F 


11 


01 EG 11 COMPUTATIONAL-2. 


COMP-2 


L 


12 


01 EG 12 PIC S9(5)V9(6) COMP-3. 


COMP-3 


P6 


01 EG 13 PIC 9(4)V9(4) COMP-3. 


13 


COMP3 


P5 


Figure 7-1. IBM Examples 


In each case, m is the size of the data item in 8-bit bytes. The m must be omitted for COMP, COMP-1 and 
COMP-2 data items. Also, calculation of m for COMP-3 data is not as straight-forward as for other data types, 
since COMP-3 data is packed 2 digits per 8-bit byte. The sign and the low order digit appear together in the 
rightmost byte. To calculate the m value, use the following algorithm: 


Set D as the number of digits specified in the PICTURE clause. (For EG 12, set D as 11; for EG13, set 
D as 8.) The examples given are lines 12 and 13 from figure 7-1. 


Obtain 

rightmost byte along with the low order digit. (For EG12, E is 12; for EG13, E is 9.) 


by adding 1 to D to allow for the sign half-byte which always appears in the right half of the 


If E is odd, set F to E + 1. (For EG13, F is 10.) If E is even,,set F to E. (For EG12, F is 12.) 


Divide F by 2 to obtain the proper value for m; therefore, for EG12, m is 6; for EG13, rn is 5. m is 
the number of 8-bit bytes occupied by the packed decimal data field on the IBM tape. 
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INTERNAL CDC COBOL DATA FORMATS 


An internal CDC data record created by a CDC COBOL program in conjunction with the 8-bit subroutines may 
contain any combination of the following data types: 


6-bit characters (X) 




12-bit ASCII characters (A) 


r 


•* 


12-bit EBCDIC characters (C) 




' 


- = 


1 


*• 


i 


unnormalized floating point (60 bit) (U) 


single precision floating point (60 bit) (E) 
double precision floating point (120 bit) (D) 


-H 


\ 




f 


numeric display signed overpunch (S) 


numeric display, unsigned (N) 






numeric display, leading zeros suppressed (Z) 






v 




The letters in parentheses are the corresponding T values as described in table 2-1 under Internal Media. The 
A and C values for T are unique to 8-bit subroutine processing. A CDC 6000 COBOL program cannot create 
or process 60-bit integer data. Any of the above data types can be considered as bit string data (B). To 
choose the corresponding m value for the conversion items, refer to the right half of table 2-1. A more com¬ 
plete description of the CDC internal format types appears in appendix D. 


I 


• 1 


i 


I 


I 


4 




Table 7-2 shows the relationship between CDC COBOL USAGE clauses, PICTURE clauses, CDC storage alloca¬ 
tion, and the corresponding 8-bit Tm values used in processing such data types. 
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•* 


Table 7-2. CDC COBOL 


Tm Values 


» 


^For A and C types, m 


half the number of 6-bit bytes used. 


-• 


.* 


4 


If CDC COMP-1 or COMP-2 data items are mixed with other data types in the data record description, slack 
bytes may be present in the CDC storage of the record to assure word alignment for each COMP-1 or COMP-2 
item. 


/ 






r 


t 
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The examples in figure 7-2 show the relationship between some CDC COBOL elementary data description 
entries and the corresponding 8-bit Tm values derived by using table 7-2. USAGE is DISPLAY unless specified 

otherwise. 


Tm 


USAGE Category 


Elementary Data Entry 


X20 


DISPLAY-alphabetic 


01 AG1 PIC A(20). 


1 


X53 


DISPLAY-alphanumeric 


01 AG2 PIC X(53). 


2 






XI2 


DISPLAY-report form 


01 AG3 PIC $999,999.99-. 


3 


N10 


DISPLAY -numeric 
unsigne d 


01 AG4 PIC 9(8)V99. 


4 


(or X10) 


S10 


DISPLAY-numeric 

signed 


01 AG5 PIC S9(8)V99. 


5 


A50 


DISPLAY-12-bit ASCII 


01 AG6 PIC X(100). 


6 


C50 


DISPLAY-12-bit EBCDIC 


01 AG7 PIC X(100). 


7 


Z9 


DISPLAY-leading zeros 
suppressed 


01 AG8 PIC Z(9). 


8 


U 


COMP-1, 1-14 digits 


01 AG9 PIC S9( 10) USAGE COMP-1. 


9 


D 


COMP-1, 15-18 digits 


01 AGIO PIC S9( 16) USAGE COMP-1. 


10 


E 


COMP-2 


01 AG11 USAGE COMPUTATIONAL-2. 


11 


Figure 7-2. CDC Examples 


Except for cases 6 and 7, m is the size of the data item in 6-bit bytes. For 12-bit ASCII or EBCDIC internal 
CDC data items, m is the size of the data item in 12-bit bytes; m must be omitted for COMP-1 and COMP-2 

data items. 


IBM COBOL FILES TO INTERNAL CDC FILES 


EXAMPLE CONVERSIONS 


The following examples show IBM COBOL data record descriptions with corresponding CDC COBOL, data 

record descriptions. A set of conversion strings appears after each set of record descriptions. The XREAD con- 

be used to read and convert the IBM file to internal CDC format. The XWRITE conversion 


version strings can 
strings can be used to write and convert a CDC file to IBM format. 
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Case 1. Simple Display Item Conversions: 


IBM data record and CDC data record: 


□ 1 REC0RD1. 


OE RA1 PIC X{5>. 


□ S RAE PIC X-Cb>. 


OE RA3 PIC ‘KAJ. 


OE RA3A PIC X-CA> REDEFINES RA3. 


OE RAN PIC STCSIV^. 


OS RAS PIC 'HN>V 3> . 


XREAD Conversion string (IBM tape file converted to CDC internal format): 


-CXSXS-, XbXb-. NANAS7S7-. N7N7> 


XREAD equivalent conversion strings: 


■CX5-, Xb 


NAi S7-, N7> 


(omitting Tire’s) 




•cxs 


Xb-. XA 


S71 X7> 






S7X7> 


-cxn 




XWRITE conversion strings: 


Same as read conversion strings for this case. 


REDEFINES items present a problem if they require a different type of conversion from the redefined area. 
See case 4 for an illustration of how to use selector expressions in the conversion string to process REDEFINES 
areas. 
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Display, Binary and Packed Decimal Data with Occurrences: 


Case 2. 


IBM data record: 


□1 REC0RD2. 


2 RBI OCCURS S TIMES PIC S'Hai. 


I 


OP RB2 OCCURS 10 TIMES. 


03 RB3 PIC S^-CS> COMPUTATIONAL 


03 RB4 PIC XX. 


02 RBS PIC S‘H13}VT1 COMPUT ATIONAL-3 


CDC data record: 


01 REC0RD2- 


"N 


02 RBI OCCURS 5 TIMES PIC S=Kfi>. 


02 RB2 OCCURS 10 TIMES 


r ... * 


03 RB3 PIC S'HSl. 


03 RB4 PIC XX. 


02 RBS PIC S'KIBJVTI. 


XREAD conversion string (IBM tape file converted to CDC internal format): 


■CSSfiSfln 10-CUS5-. X2X2-. X2X03--. P6S1S> 


The IBM COBOL compiler inserts two slack bytes after RB4 for storage allocation to ensure each occurrence 
of RB3 begins on a full-word boundary. The X2X0 item in the conversion string causes these slack bytes to 

be skipped. 


XREAD equivalent conversion strings: 


CSSfln 10-CUSSi X21 X2X03--, PfiSlSl 


or 


-CSSfin 10-CUSSn X4X2>-i P8S1S> 


XWRITE conversion strings (CDC internal format converted to IBM tape file): 


■cssasfi-i 10 -CSSU-I X2X2-I X0X2>-i SlSPa> 


or 


sispai 


cssa-, 10 -CSSU-, X2X4J 




In XWRITE conversion strings, the Tmj values are interchanged with the Tm 2 values in each single conversion 
item. 
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Case 3. 


IBM data record description: 


01 REC0RD3. 


02 DIN OCCURS 3 TIMES 


03 DID PIC *1 USAGE COMP-3. 


03 DID1 PIC ‘KSD- USAGE COMP-3. 


02 IRP PIC SWJVTI USAGE COMP-3 


02 IRP2 PIC S^V^T COMPUTATIONAL. 


02 IRP3 PIC t H15> COMPUTATIONAL. 


02 IRPM USAGE COMPUTATIONAL-1. 


02 IRPS USAGE COMPUTATIONAL-2• 


CDC COBOL record description: 


01 REC0RD3. 


02 DIN OCCURS 3 TIMES 


03 DID PIC c l. 


03 DID1 PIC e K5> 


02 IRP PIC SI-CUVTI. 


02 IRPS PIC STV'H- 


02 IRP3 PIC T-CISJ. 


02 IRPM PIC S=K14> COMP-1. 


02 IRPS PIC S'Klfll COMP-1. 


XREAD conversion string (IBM tape file converted to internal CDC): 


C3-CP1N1 n P3N53-1 PLS11-. HS3-. GN1Si FE-. LD> 


XWRITE conversion string (internal CDC converted to IBM tape file): 


N5P33-1 SllPtn S3H-. N1SG-. EF-. DL> 


■C3CN1P1 
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Case 4: 


IBM data record description: 


□1 RECORDA- 


□ 5 FIXED-FIELD PIC X-C40J. 


03 KEY-FIELD PIC 1 


03 ALT1 • 


□3 All PIC S'USIV'^ COMP-3 OCCURS 5 TIMES. 


□ 3 A13 T0T1 PIC ST-CIQ} 


03 ALT3 REDEFINES ALT1• 


03 A31 PIC XCS1 OCCURS b TT MES • 


03 ALT3 REDEFINES ALTS 


03 A31 PIC COMPUTATIONAL OCCURS 10 TIMES 


03 A33 PIC S^-CIOJ. 


CDC data record description: 


01 RECORD A. 


03 FIXED-FIELD PIC X-C403-. 


03 KEY-FIELD PIC 1 


03 ALT1• 


03 All PIC S*K5>Vn OCCURS 5 TIMES- 


03 A13 T0T1 PIC S'l-ClO. 


03 ALT3 REDEFINES ALT1• 


03 A31 PIC X-C51 OCCURS b. 

03 ALTB REDEFINES ALT3- 

03 A31 PIC OCCURS 10 TIMES 


03 A33 PIC S'KIOI. 
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The REDEFINES clauses in this example require different treatment in the formation of the conversion string. 
Assume, for the above example, that KEY-FIELD determines the format of the remaining bytes of the record. 

If KEY-FIELD is, 1, the remainder of the record conforms to ALT1 formatting. If it is 2, the remainder of the 

record conforms with ALT2. If it is 3, the remainder of the record conforms with ALT3. The selector expres¬ 
sion in the following conversion string determines which of the three possible formats to use in converting the 

IBM input data. 


XREAD conversion string (IBM file converted to CDC internal) 


■CX40X40-. N1 E(3 U N1N1-. 5P4S7-, SlOSlOi 


N1 E(3 3: N1N1-, bXSXS 




N1 Ed 3: N1N1 •» 10HN3-. S10S10> 


An equivalent conversion string is: 


N1 Ed l: N1-. 5P4S7i SlOi 


■CX40 




N1 Ed 


X31S 


3 : 


10HN3 1 S10 } 


N1 Ed 


3: 






XWRITE conversion string (CDC internal converted to IBM file): 


•CX4DX40n N1 Ed H NlNln SS7P4 i SlOSlOi 


bXSXSi 


N1 Ed 


N1N1 


3* 




1DN3H 1 S1DS1D> 


N1 Ed 3: N1N1 




Case 5: 


IBM data record description: 


D1 TRANS-HOLD-IN 


□S DEALER-INVOICE-NO. 


ID DEALER-ID PICTURE T VALUE □ USAGE COMP-3. 


10 DEALER-ID1 PICTURE C H5> VALUE 0 USAGE COMP-3. 


OS CRV-NO PICTURE VALUE 0 USAGE COMP-3. 


□5 PURCHASE-DATE 


10 PURCHASE-YEAR PICTURE T VALUE ZEROS. 


10 PURCHASE-DAY PICTURE VALUE ZEROS- 
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□S MATURITY-DATE. 


ID MATURITY-YEAR PICTURE VALUE ZEROS. 


10 MATURITY-DAY PICTURE W VALUE ZEROS- 


□ 5 DAYS-T0-MATURITY PICTURE TV1 VALUE ZEROS USAGE COMP-3. 


DS INTEREST-RATE PICTURE WU4> VALUE ZEROS USAGE COMP-3. 


□5 FACE-AMOUNT PICTURE WIVTI VALUE ZEROS USAGE COMP-3 


□ S DISCOUNT-AMOUNT PICTURE ‘KfllV'H VALUE ZEROS USAGE COMP-3. 


ZEROS USAGE COMP-3. 


□ 5 NET-PROCEEDS PICTURE WIVI*) VALUE 


□ S COMMISSION-AMOUNT PICTURE ‘KSJ-VTI VALUE ZEROS USAGE COMP-3. 


□S WEIGHT ED-GROSS-SALES PICTURE C K12>V C H VALUE ZEROS USAGE COMP-3. 
□S WEIGHTED-NET-PROCEEDS PICTURE 'KIEIVT^ VALUE ZERO USAGE COMP-3. 
OS DAILY-DISCOUNT-AMOUNT PICTURE C K6>V C H:S> VALUE ZERO USAGE COMP-3. 


SPACE. 


OS ADVANCE-PURCHASE-TRAN PICTURE X VALUE 


□S FILLER PICTURE X-Cfl> VALUE SPACES. 


□5 FILLER PICTURE X-CMT- VALUE SPACES. 
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CDC data record description: 


□1 TRANS-HOLD-IN• 


□S DEALER-INVOICE-NO 


10 DEALER-ID PIC t• 


ID DEALER-ID1 PIC 'HSJ. 


OS CRV-NO PIC c Kb>. 


OS PURCHASE-DATE. 


10 PURCHASE-YEAR PIC ^ 


10 PURCHASE-DAY PIC 


OS MATURITY-DATE- 


10 MATURITY-YEAR PIC T • 


10 MATURITY-DAY PIC 


OS DAYS - T0-MATURITY PIC W. 


OS INTEREST-RATE PIC '^V'mT. 


OS FACE-AMOUNT PIC • 


OS DISCOUNT-AMOUNT PIC c Ufl>VT : l 


OS NET-PROCEEDS PIC C KW^ 


OS COMMISSION-AMOUNT PIC E K5>V C 1 C 1. 


OS WEIGHT ED-GROSS-SALES PIC ^ClBJVn. 


OS WEIGHTED-NET-PROCEEDS PIC ‘HIBIV'^ 


05 DAILY-DISCOUNT-AMOUNT PIC 'KfilV'KS]-. 


OS ADVANCE-PURCHASE-TRAN PIC X 


OS FILLER PIC XCfl}. 


OS FILLER PIC XC4>. 
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XREAD conversion string (IBM tape file converted to CDC internal): 


•CPINIt P3N5 i PMNbt N1 N3-. N1N3-. PEN3-. P4Nb PbNll-. PbNID 




X8-. X4> 


P7N13 


P4N7 1 PaNlM-. PBN14 


XI 


PbNll 


n . 








or 


PbNlO-. PbNll-. P4N7 


PMNtn xa-, PEN3-, P4Nb -. PbNll 


P3NS 


-CP1N1 










X13> 


P7N13 


pbni4 


PBN14 








XWRITE conversion string (CDC internal converted to IBM tape file): 


N3-. Nl'-, N3 1 N3PE-. NbP4-, NllPb-. NIOPb 


■CN1P1-. N5P3-, NbP4-i N1 






X4> 


xa 


N13P7 


XI 


Ni4Pa 


Ni4pa 


N7P4 


NllPb 
















or 


NIDPb-. NllPb-. N7P4 


N3PE-. NbP41 NllPb 


xa 


NbP4 


■CN1P11 NSP3 












N14PBi N13P7X13> 


N14PB 




Conversion String Maintaining 8-Bit Significance for Non-Numeric Characters 


Case 6. 


Assume the IBM tape file is written in ASCII format. 


IBM data record description: 


□1 RECb. 


OE NAME PIC X-CED>• 


□ S IB PIC X-C10>. 


□S ITMS OCCURS S TIMES. 


03 QUANTITY PIC ITTC • 


□3 ITEM PIC XCS>. 


□ 3 PRICE PIC $ C K4>.TI¬ 


DE TOT PIC ST-CTl-T 1 !. 
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CDC data record description: 


□1 RECb. 


OS NAME PIC X-C403- • 


□a id pic xcao>. 


r.--' 


TIMES. 


aa itms occurs 








□ 3 QUANTITY PIC 


□3 ITEM PIC X-C1Q}. 


□ 3 PRICE PIC $ C K4>. C H. 


□a TOT PIC 


Data-names NAME, ID, and ITEM will be converted with 8-bit significance maintained. For these items, the 
CDC COBOL record description allows two 6-bit characters for each 8-bit character in storage allocation; each 
8-bit character will occupy 12 bits. 


XREAD conversion string (IBM tape file converted to internal CDC): 


■cxaoAaoi xioaio-, scnmnm-. xsas-, xaxa> 


X13X131 




or 


5-CN4-, XSAS-i XB3-1 X13> 


XIOAIO 


-cxaQAao 






XWRITE conversion string (internal CDC converted to IBM tape file): 


X13> 


■CAaoxau-. aioxio-. s-cnmi asxs-, xa 






SAMPLE CDC COBOL JOB 


The following sample CDC 6000 COBOL program processes an IBM EBCDIC tape containing F-type records 
that conform to the case 5 format in the previous examples. The program will read and display each record 

the tape. Code could be added to the COBOL program to save each converted record on a CDC tape file. 


on 


job card 


COBOL. 

VSN(TAPE02=135) 

REQUEST,TAPE 0 2,NT,S. 

FILE (TAPE02 , BT=K, RT=U, HBL=107 ,I1LR=107 , CM=NO ,MNR=24 ,MNB=24) 


NINE TRACK INPUT TAPE 


LDSET(FILES=TAPE02) 


LGO. 
7/8/9 
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IDENTIFICATION DIVISION. 

PROGRAM-ID. RC9T. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. 6600. 

OBJECT-COMPUTER. 6600. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT TRANS-HOL ASSIGN TO TAPE02. 
DATA DIVISION. 


FILE SECTION. 


FD 


RECORDING MODE IS DECIMAL 

LABEL RECORDS ARE OMITTED 
BLOCK CONTAINS 107 CHARACTERS 
DATA RECORD IS TRANS-HOLD-IN. 


TRANS-HOLD-IN. 


01 


N 


05 DEALER-INVOICE-NO. 

10 DEALER-ID PIC 9 
10 DEALER-ID1 PIC 9(5). 
05 CRV-NO PIC 9(6). 

05 PURCHASE-DATE. 

10 PURCHASE-YEAR PIC 9. 
10 PURCHASE-DAY PIC 999. 

05 MATURITY-DATE. 

10 MATURITY-YEAR PIC 9. 
10 MATURITY-DAY PIC 999. 

05 DAYS -TO-MATURITY PIC 999. 
05 FACE-AMOUNT PIC 9(9)V99. 






05 INTEREST-RATE PIC 99V9999. 

05 DISCOUNT-AMOUNT PIC 9(8)V99. 

05 NET-PROCEEDS PIC 9(9)V99. 

05 COMMISION-AMOUNT PIC 9(5)V99. 

05 WEIGHTED-GROSS-SALES PIC 9(12)V99. 

05 WEIGHTED-NET-PROCEEDS PIC 9(12)V99. 

DISCOUNT-AMOUNT PIC 9(8)V9(5). 


05 DAILY 

05 ADVANCE-PURCHASE-TRAN PIC X. 
05 FILLER PIC X(12). 


WORKING-STORAGE SECTION. 

SZ PIC 99 USAGE COMP-1 VALUE 17. 

STAT USAGE COMP-2 

01 WS1 PIC X(170) . 

01 CSTRING PIC X(100) VALUE 

^(P1N1,P3N5,P4N6,X8,P2N3,P4N6,P6N11,P6N10,P6N11 

^P4N7,P8N14,P8N14,P7N13,X13) 

01 FSTRING PIC X(50) VALUE 

4 (FT=T,USE=R,RECFM=F,BLKSIZE=80,CODE-C)f 


77 


77 




% 


II 




X 
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PROCEDURE DIVISION. 




OPEN INPUT TRANS-HOL WITH NO REWIND. 
ENTER XFILE USING TRANS-HOL. WS1. FSTRING 








RLOOP. 


ST AT. 




TRANS-HOLD-IN 
1 DISPLAY /BAD INPUT DATA/ 


ENTER XREAD USING WS1 








IF STAT 
GO TO RLOOP. 

IF STAT 15 LESS THAU 0 GO 10 PROCESS-EOF. 

IF STA,T NOT EQUAL 0 DISPLAY /TAPE REAP ERROR/. 

DISPLAY TRAUS-HOLP-IN. 

GO TO RLOOP. 




DISPLAY =/EOF ENCOUNTERED ON TAPE REAP/ 
CLOSE TRANS-HOL. 

STOP RUN 
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The following sample COBOL job reads 200 logical records from the second file of an IBM 360 EBCDIC tape. 
Logical blocks are 135 characters long and are blocked into 3105 character blocks containing 23 records per 
block. The tape file contains both upper and lower case character data. Each record is converted to display 
code with lower case data folded to its upper case equivalent, then displayed upon output. 
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FORTRAN 






This chapter discusses the usage of the 8-bit subroutines in connection with the reading and writing of IBM 

360/370 compatible tape files used with or produced by an IBM 360/370 FORTRAN program. It is assumed 

■ 

that the user is familiar with FORTRAN and its input/output concepts. It would be beneficial for the user to 
have access to a CDC FORTRAN Extended Reference Manual. 


IBM FORTRAN DATA FORMATS 


if 


■v 


IBM FORTRAN programs can utilize six types of constant data and four types of variable data. The constant 

type determines the number of 8-bit byte storage locations needed to represent the data. A default and optional 
length specification for each variable type determines the number of bytes reserved for that type. Table 8-1 
gives the associated length specifications for constants and variables. 


* ■ 




i: 


* 


» 


•-.- r 


Constant and Variable Sizes 


Table 8-1. IBM FORTRAN 




J * 1 
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An IBM 360/370 tape file created by an IBM FORTRAN program may contain combinations of the following 
data types: 


(X) 


8-bit characters 


(H) 


half-word integers, 16 bits 


(W) 


whole-word integers, 32 bits 


(F) 


32-bit floating point 


(L) 


64-bit floating point 

The letters in parentheses are the corresponding T values as described in table 2-1 in chapter 2. Note that an 
IBM FORTRAN Program cannot create 64-bit double word integers or 128-bit extended-precision floating point 

data. All of the above data could be processed also as bit string data (B). 

Table 2-1 should also be consulted to determine the appropriate m value for each T selected. A more complete 
description of IBM data format types appears in appendix C. 

The following table 8-2 shows the relationship between IBM FORTRAN data type declarations, byte storage 
allocation, and the corresponding Tm values for conversion use. 


Tm Values 


Table 8-2. IBM FORTRAN 


IBM Boundary 
Alignment 


IBM FORTRAN Type 

Declaration 


8-Bit Bytes Used^ 


T 


2 


H 


halfword 


Integer*2 


4 


W 


fullword 


Integer 

Integer*4 


4 (single precision) 


F 


fullword 


Real 


Real *4 


8 (double precision) 


L 


doubleword 


Real* 8 

Double Precision 


4 


fullword 


usage 

defined 


Logica 


1 


usage 

defined 


Logical* 1 


none 


fThe value used for m is determined from number of bytes used. 
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Table 8-2 contains only examples of explicit type declarations. COMPLEX declarations do not appear since the 
complex variable is composed of two real data items and follows the conventions for REAL data types. It is 
for the user to determine how LOGICAL data types are to be converted. 


CDC FORTRAN EXTENDED DATA FORMATS 


Programs written in CDC FORTRAN Extended can utilize seven types of constant data and five types of variable 
data. The type of constant or variable determines the number of central memory words needed to represent it. 
Table 8-3 shows the constant and variable types and the associated 6-bit byte length specifications. 


Table 8-3. CDC FORTRAN 


Constant and Variable Sizes 
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Internal records in a CDC FORTRAN program may contain combinations of the following data types. The letter 

in parentheses is the corresponding T value as determined from table 2-1. 


(X) 


(I) 


whole-word integer, 60 bits 
single-word floating point, 60 bits 

double-word floating point, 120 bits 

All of the above data types could be processed as type B bit string data. Table 2-1 should be consulted to 
determine the appropriate m value. While a whole-word integer is a data type, integers used in multiplication 
and division operations are truncated to 48 bits. More complete information on this subject appears in appen¬ 
dix C and in the CDC FORTRAN Extended Reference Manual. 

Table 8-4 shows the relationship between CDC FORTRAN data type declarations, storage allocation, and cor¬ 
responding Tm values for conversion use. 


(E) 


(D) 


Tm Values 


Table 8-4. CDC FORTRAN 


CDC Boundary 
Alignment 


CDC FORTRAN Type 
Declaration 


T 


10 




fullword 


Integer 


10 




fullword 


Real 


20 


D 


doubleword 


Double precision 


20 


fullword 


Logical 


usage 

defined 


^The value used for m is determined from number of bytes used. 


COMPLEX type declarations do not appear in the table as the complex variable is composed of two real data 
items and follow the conventions for REAL data types. It is left to the user to determine the manner in which 

LOGICAL data items are to be converted. 


SAMPLE FORTRAN JOB 


sample CDC FORTRAN Extended (FTN) job reads 200 logical records from the second file of 
IBM 360 EBCDIC tape. The logical records are 135 characters long and are blocked into 3105 character 

23 records per block. The tape contains both upper and lower case data. In the program, 
each record is converted to display code with lower case data folded to upper case equivalent before being 
displayed upon the file OUTPUT. A sample of the job output is included. 


an 


blocks containin 
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STANDARD CDC CHARACTER SETS 




The character set selected when the system is installed should be compatible with the printers. 


SCOPE 


With an installation parameter, the installation keypunch format standard can be selected as 026 or 029; the 
installation parameter can also allow a user to override the standard; a user may select a keypunch mode for 
his input deck by punching 26 or 29 in columns 79 and 80 of his JOB card or any 7/8/9 end-of-record card. 

The mode remains set for the remainder of the job or until it is reset by a different mode selection on another 
7/8/9 card. 


KRONOS 


A user can select a keypunch mode for an input deck by use of a card containing 5/7/9 punches in column 1 
and the desired conversion mode indicated in column 2. The conversions are indicated by the following punches: 


FORTRAN 029 
COBOL 029 
SNOBOL 029 


9 


8 


8/9 


The conversion mode will remain in effect for the remainder of the job or until reset by a different mode 
selection on another 5/7/9 card. 


60359400 C 


A-l 




CDC CHARACTER SET 
COLLATING SEQUENCE 


Collating 

Sequence 

Decimal/Octal 


Collating 

Sequence 

Decimal/Octal 


Externa 

BCD 


CDC 

Graphic 


CDC 

Graphic 


Display 

Code 


Externa 

BCD 


Display 

Code 


00 00 

01 01 

02 02 

03 03 

04 04 

05 05 

06 06 

07 07 

08 10 

09 11 

10 12 

11 13 

12 14 

13 15 

14 16 

15 17 

16 20 

17 21 

18 22 

19 23 

20 24 

21 25 

22 26 

23 27 

24 30 

25 31 

26 32 

27 33 

28 34 

29 35 

30 36 

31 37 


blank 


55 


20 


32 40 

33 41 

34 42 

35 43 

36 44 

37 45 

38 46 

39 47 

40 50 

41 51 

42 52 

43 53 

44 54 

45 55 

46 56 

47 57 

48 60 

49 61 

50 62 

51 63 

52 64 

53 65 

54 66 

55 67 

56 70 

57 71 

58 72 

59 73 

60 74 

61 75 

62 76 

63 77 


H 


70 


10 


< 


74 


11 


15 


71 


I 


63 t 


16 t 


% 


66 


52 


v 


[ 


61 


17 


12 


41 


65 


35 


K 


13 


42 


60 


36 


L 


14 


43 


A 


67 


37 


M 


15 


44 


t 


70 


55 


N 


16 


45 




71 


56 


O 


17 


46 


> 


73 


57 


P 


20 


47 


> 


75 


75 


Q 


21 


50 


76 


76 


R 


22 


51 


57 


73 


] 


32 


62 


) 


52 


74 


S 


23 


22 


77 


77 


T 


24 


23 


45 


60 


+ 


U 


25 


24 




53 


53 


V 


26 


25 






47 


54 


W 


27 


26 


46 


40 


X 


30 


27 


/ 


50 


21 


Y 


31 


30 


56 


33 


Z 


32 


31 


( 


51 


oof 


34 


nonef 


54 


13 


0 


33 


12 






64 


14 


1 


34 


01 


< 


72 


72 


2 


35 


02 


A 


01 


61 


3 


36 


03 




02 


62 


4 


37 


04 


C 


03 


63 


5 


40 


05 


D 


04 


64 


6 


41 


06 


E 


05 


65 


7 


42 


07 


F 


06 


66 


8 


43 


10 


G 


07 


67 




44 


11 


fin installations using the 63-graphic set, the % graphic does not exist. The : graphic is display code 63, 
External BCD code 16. 
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ASCII CHARACTER SET 
COLLATING SEQUENCE 




Collating 

Sequence 

Decimal/Octal 


ASCII 

Graphic 

Subset 


Collating 

Sequence 

Decimal/Octal 


ASCII 

Graphic 

Subset 


Display ASCII 
Code Code 


ASCII 

Code 


Display 

Code 


74 


40 


@ 


20 


32 40 

33 41 

34 42 

35 43 

36 44 

37 45 

38 46 

39 47 

40 50 

41 51 

42 52 

43 53 

44 54 

45 55 

46 56 

47 57 

48 60 

49 61 

50 62 

51 63 

52 64 

53 65 

54 66 

55 67 

56 70 

57 71 


blank 


00 00 

01 01 

02 02 

03 03 

04 04 

05 05 

06 06 

07 07 

08 10 

09 11 

10 12 


55 


41 


01 


A 


21 


i 


66 


02 


42 


22 




9f 


64 


03 


43 


C 


23 


# 


60 


04 


44 




24 


$ 


53 


05 


45 


63+ 




25 


% 


46 


06 


F 


26 


67 


& 


47 


07 


27 


G 


70 


48 


10 


28 


H 


( 


51 


49 


11 


29 


I 


52 


) 


4A 


12 


2A 


J 




47 


4B 


13 


2B 


K 


13 


11 


45 


+ ‘ 


4C 


14 


2C 


L 


12 14 

13 15 

14 16 

15 17 

16 20 

17 21 

18 22 

19 23 

20 24 

21 25 

22 26 


56 


4D 


15 


2D 


M 


46 


4E 


16 


2E 




57 


4F 


17 


2F 


O 


/ 


50 


50 


20 


30 




33 




51 


21 


31 


Q 


34 


1 


52 


22 


32 




35 


2 


53 


23 


33 


S 


36 


3 


54 


24 


34 


T 


37 


4 


55 


25 


35 


U 


40 




56 


26 


V 


36 


41 




57 


27 


W 


37 


27 


42 


7 


58 


30 


X 


38 


30 


43 


24 


8 


59 


31 


Y 


39 


31 


44 




5A 


32 


72 


Z 


3A 


00 + 


32 


5B 


1 


73 


59 


[ 


3B 


27 33 

28 34 


77 


5C 


75 


74 


\ 


60 


3C 


< 


72 


5D 


75 


61 


] 


3D 


35 


54 


5E 


76 


76 


62 


3E 


30 36 

31 37 


73 


> 


5F 


77 


63 


3F 


71 


? 


+ In installations using a 
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CONTROL DATA CHARACTER SETS 

SHOWING TRANSLATIONS BETWEEN DISPLAY CODE AND ASCII/EBCDIC 


ASCI 


ASCII 


EBCDIC 


DISPLAY 


DISPLAY 


UPPER 

CASE 


LOWER 

CASE 


UPPER 


LOWER 


UPPER 


LOWER 


CASE 


CASE 


CH HEX CH HEX 


00 


3A SUB 


1 A 


7 A 


NAK 


35 


15 


40 


5 


5 


F5 


3D 


5 


NAK 


01 


A 


A 


41 


A 


61 


Cl 


81 


SYN 


36 


41 


6 


16 


6 


32 


F6 


SYN 


6 


a 




02 


42 


B 


b 


62 


C2 


B 


82 


ETB 


B 


42 


37 


b 


7 


17 


7 


F7 


ETB 


26 


7 


03 


C 


C 


43 


63 


C 


C3 


38 


83 


43 


8 


CAN 


18 


8 


8 


F8 


CAN 


18 


c 


c 


04 


D 


D 


44 


d 


64 


D 


C4 


84 


39 


EM 


19 


9 


d 


44 


9 


F9 


9 


EM 


19 


05 


E 


E 


45 


65 


E 


C5 


2B 


85 


VT 


OB 


4E 


45 


VT 


0B 


e 


+ 


+ 


+ 


e 


06 


f 


46 


OD 


66 


F 


F 


C6 


2D 


86 


CR 


f 


46 


60 


CR 


OD 


07 


G 


G 


OA 


47 


67 


G 


C7 


2A 


LF 


87 


5C 


LF 


47 


25 


g 


g 


10 


H 


H 


48 


68 


h 


2F 


C8 


H 


/ 


SI 


/ 


88 


OF 


61 


OF 


Si 


h 


50 


/ 


1 1 


i 


I 


49 


69 


28 


i 


C9 


89 


BS 


08 


BS 


( 


4D 


16 


51 


( 


( 


i 


i 


12 


J 


J 


4A 


6A 


29 


J 


HT 


09 


D1 


91 


) 


5D 


HT 


05 


52 


) 


) 


J 


I 


13 


K 


K 


4B 


k 


6B 


K 


24 


E (3 T 


D2 


92 


04 


S 


EOT 


k 


$ 


5B 


37 


53 


S 


14 


L 


4C 


L 


6C 


3D 


GS 


L 


93 


D3 


ID 


7E 


I GS 


I 


54 


ID 


15 


M 


M 


4D 


6D 


M 


20 


NUL 


D4 


94 


00 


55 


SP 


SP 


NUL 


00 


SP 


40 


m 


m 


16 


N 


4E 


N 


6E 


N 


2C 


OC 


FI- 


05 


95 


FF 


OC 


56 


6B 


n 


n 


17 


O 


O 


4F 


6F 


O 


2E 


SO 


D6 


96 


OE 


SO 


OE 


57 


4B 


o 


o 


F 


P 


P 


50 


70 


P 


D7 


97 


F 


60 


23 


-U 


E T X 


03 


7B 


ETX 


03 


P 


P 


•• 


Q 


O. 


51 


Q 


D8 


I 


71 


98 


5B 


61 


FS 


1C 


c 


I FS 


1C 


4A 


q 


q 


22 


! 


R 


R 


52 


72 


R 


D9 


62 


5D 


SOH 


01 


i 


5 A 


SOH 


01 


r 


r 


23 


S 


S 


53 


E2 


73 


S 


A2 


63 


25 


% 


% 


ENQ 


6C 


ENO 


05 


2D 


0/ 


s 


s 


70 


24 


* t 


t r 


T 


54 


t J 


74 


T 


E3 


A3 


22 


64 


y 


7 F 


STX 


STX 


02 


t 


02 


t 


25 


U 


U 


55 


75 


E4 


U 


A4 


65 


5F 


DEL 


7F 


6D 


DEL 


07 


u 


u 


■ ► 


} 




26 


V 


V 


56 


76 


V 


E5 


A5 


66 


21 


4F 


DO 


7D 


v 


V I 


1 


V 


[ 


27 


W 


W 


57 


77 


E6 


W 


A6 


26 


67 


& 


& 


ACK 


50 


ACK 


2E 


06 


& 


A 


W 


w 


30 


X 


58 


78 


t 


X 


X 


E7 


7D 


BEL 


70 


07 


27 


BEL 


2F 


x 


X 


31 


Y 


Y 


59 


79 


Y 


E8 


A8 


I 


71 


3F 


US 


6F 


IUS 


IF 


? 




IF 


? 


V 


V 


i 


32 


Z 


Z 


5 A 


3C 


) 


7 A 


Z 


E9 


< 


4C 


A9 


72 


< 


< 


CO 


7B 


/ 


7 


I 


I 


33 


0 


0 


30 DLE 


10 


DLE 


0 


FO 


10 


73 


"> 


3E 


RS 


IE 


6F 


IRS 


IE 


34 


1 


31 DC1 




1 


FI 


11 


1 


DC1 


60 


11 


74 


< @ 


40 




7C 


79 


I 


2 


2 


\ 


32 DC2 


\ 


12 


2 


F2 


DC2 


12 


75 


5C 


7C 


EO 


6A 


\ 


i 


i 




36 


3 


3 


3 


F3 


33 DC3 


13 


TM 


13 


76 


7E 


5E 


5F 


A1 


•Q 


37 


4 


4 


34 DC4 


14 


4 


F4 


DC4 


3C 


77 


ESC 


5E 


3B 


IB 


ESC 


27 


NOTES: 


1. The terms ''upper case" and "lower case" apply only to the case con¬ 
versions, and do not necessarily reflect any true case . 

2. When translating from Display Code to ASCII/EBCDIC, the upper 
case equivalent character is taken. 

3. When translating from ASCII/EBCDIC to Display Code, the upper 
case and "lower case" characters fold together to a single Display 
Code equivalent character. 


5. Where two Display Code graphics are shown for a single octal code, 

the leftmost graphic corresponds to the CDC 64-character set and the 
rightmost graphic cor responds to the CDC 64-character ASCII subset. 


4 I 


i i 


i * 


t 9 


i t 


f f 


6. In a 63-character set system, the display code for the : graphic is 63. 
The % character does not exist, and translations from ASCII/EBCDIC % 
or ENQ yield blank (55g). 


4. All ASCII and EBCDIC codes not listed are translated to Display Code 


55 (SP) 
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HEXADECIMAL-OCTAL CONVERSION TABLE 


Second 


Hexadecimal 


3 


4 




6 


7 






A 
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COBOL 029 CHARACTER SET 


029 


029 


BCD I Char. 


Display 


Hollerith BCD 


Char. 


Di s pi ay 


Hollerith 


00 




33 


0 


40 


46 


11 


01 


34 


1 


1 


41 


J 


12 


11-1 


02 


2 


35 


2 


42 


K 


13 


11-2 

11-3 


03 


3 


36 


3 


43 


L 


14 


04 


37 


4 


4 


44 


M 


15 


11-4 


0 


5 


40 


5 


45 


16 


N 


11-5 


06 




41 


6 


46 


O 


17 


11-6 

11-7 

11-8 

11-9 

11-0 


07 


7 


42 


7 


47 


P 


20 


10 


43 


8 


8 


Q 


50 


21 


9 


44 


9 


11 


51 


22 


R 


12 


63 


63 


8-2 


52 


null 


$ 


# 


13 


8-3 


53 


53 


11-8-3 


75 




14 


74 


8-4 


54 


47 


11-8-4 




-V 


) 


15 




64 


8-5 


11-8-5 


55 


52 


11 - 8-6 


16 


8-6 


56 


77 


54 


63 


11-8-7 


null 


63 


8-7 


57 


null 


17 


55 


20 


12 


60 


71 


& 


space 


/ 


50 


0-1 


61 


01 


12-1 


21 


A 


23 


0-2 


62 




02 


22 


12-2 


B 


0-3 


24 


63 


23 


03 


12-3 

12-4 


T 


C 


0-4 


25 


64 


04 


24 


U 


D 


0-5 


26 


65 


05 


V 


12-5 


25 


E 


0-6 


66 


27 


06 


12-6 

12-7 


W 


26 


F 


30 


0-7 


67 


27 


G 


07 


X 


0-8 


31 


10 


12-8 


70 


Y 


30 


H 


0-9 


32 


Z 


12-9 


71 


31 


11 


I 


0 - 8-2 


63 


72 


null 


32 


65 


12-0 


<? 


0-8-3 


56 


33 


57 


12-8-3 


73 


% 


0-8-4 


70 


72 


12-8-4 

12-8-5 

12 - 8-6 


74 


34 


< 


0-8-5 


63 


null 


75 


( 


35 


51 


0 - 8-6 


73 


76 


45 


36 


> 


4 - 


0-8-7 


63 


I 


null 


77 


12-8-7 


67 


37 


(Note: There are no 60, 61, 62, 66, or 76 display codes.) 


A-9 













FORTRAN 029 CHARACTER SET 


029 


029 


Char. 


Display 


Hollerith BCD 


Char, 


Display 


Hollerith 


00 


0 


33 




40 


46 


11 


01 


34 


1 


41 


12 


J 


11-1 

11-2 

11-3 

11-4 

11-5 

11-6 

11-7 

11-8 

11-9 

11-0 

11-8-3 

11-8-4 


02 


35 






42 


13 


K 


03 




36 




43 


14 


L 


04 


4 


37 


4 


44 


15 


M 


05 




40 




45 


16 


N 


06 


6 


41 




46 


O 


17 


07 


7 


42 


7 


47 


20 


P 


10 


8 


43 




50 


Q 


21 


11 


9 


44 




51 


22 


R 


12 


63 


8-2 


52 


66 


V 


13 


$ 


54 


8-3 


53 


53 


14 


47 


8-4 


* 


54 


47 


* 


15 


) 


47 


8-5 


55 


32 


11-8-5 


-T* 


16 


54 


77 


11 - 8-6 


8-6 


56 


11-8-7 


76 


61 


8-7 


57 


17 


[ 


55 


60 


20 


45 


12 


space 


+ 


A 


0-1 


50 


61 


12-1 

12-2 

12-3 

12-4 

12-5 

12-6 

12-7 

12-8 

12-9 

12-0 

12-8-3 

12-8-4 

12-8-5 

12 - 8-6 

12-8-7 


A 


01 


21 


0-2 


23 


S 


62 


02 


22 


B 


0-3 


24 


63 


T 


03 


23 


C 


0-4 


25 


64 


U 


04 


24 


D 


0-5 


26 


65 


V 


05 


25 


E 


0-6 


27 


W 


66 


06 


26 


F 


0-7 


30 


X 


67 


07 


G 


27 


0-8 


31 


Y 


70 


10 


H 


30 


0-9 


32 


Z 


71 


11 


31 


I 


0 - 8-2 


55 


72 


72 


space 


32 


< 


0-8-3 


56 


73 


57 


33 


0-8-4 


51 


( 


74 


) 


52 


34 


0-8-5 


65 


75 


51 


( 


35 


r 


0 - 8-6 


73 


76 


> 


45 


36 


+ 


0-8-7 


67 


77 


A 


77 


37 


(Note: There are no 60, 62, 64, 70, 71, 74, or 75 display codes.) 
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SNOBOL 029 CHARACTER SET 


029 


029 


BCD 


Char. 


Display 


Hollerith BCD 


Char. 


Display 


Hollerith 


00 




33 




40 


46 


11 


01 


34 


1 


1 


41 


J 


12 


11-1 

11-2 

11-3 

11-4 

11-5 

11-6 

11-7 

11-8 

11-9 

11-0 


02 


2 


35 




42 


K 


13 


03 


3 


36 




43 


L, 


14 


04 


37 


4 


4 


44 




15 




05 


5 


40 




45 


N 


16 




06 




41 


46 


O 


17 


07 


7 


42 


7 


47 


P 


20 


10 


8 


43 




50 


Q 


21 


11 


9 


44 




51 


22 


R 




12 


63 


8-2 


60 


52 


null 


13 


# 


$ 


74 


53 


8-3 


11-8-3 


53 




@ 


14 


71 


8-4 


54 


47 


11-8-4 




) 


15 




70 


8-5 


55 


52 


11-8-5 




16 


54 


8-6 


11 - 8-6 


56 


77 


n 


17 


64 


8-7 


57 


76 


11-8-7 


20 


67 


12 


60 


& 


55 


space 


/ 


21 


A 


12-1 

12-2 

12-3 

12-4 

12-5 

12-6 

12-7 

12-8 

12-9 


61 


0-1 


01 


50 


22 


02 




62 


23 


0-2 


B 


0-3 


23 


03 


63 


24 


C 


T 


0-4 


24 


64 


25 


04 


U 


D 


25 


65 


26 


0-5 


05 


V 


E 


66 


W 


27 


0-6 


26 


06 


F 


0-7 


30 


27 


07 


67 


X 


G 


0-8 


30 


70 


31 


10 


Y 


H 


0-9 


31 


71 


Z 


32 


I 


11 




0 - 8-2 


32 


null 


60 


60 


null 


12-0 

12-8-3 

12-8-4 

12-8-5 

12 - 8-6 

12-8-7 


72 


0-8-3 


33 


57 


56 


73 




% 


0-8-4 


34 


61 


74 


75 


< 


( 


0-8-5 


60 


35 


75 


null 


51 


0 - 8-6 


62 


36 


76 


45 


> 


+ 


\ 


0-8-7 


65 


66 


77 


37 


9 

* 


(Note: There are no 72 or 73 display codes. ) 
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IBM TAPE FILE RECORD AND BLOCK FORMATS 


i 


1 


J 


\ 


•* 


** 


Files may be written and read in IBM 360/370 comparable format by the XREAD and XWRITE routines. 
Parameters are required for the XFILE routine to describe the record and blocking format to be used. These 
parameters, described below, correspond to the DCB (data control block) subparameters RECFM, BLKSIZE, 
and LRECL on a DD (data definition) statement in 360/370 JCL (job control language). 


Specifies length, in number of 8-bit bytes, of the longest tape block expected, regardless of format. For variable 
(V) format records, the specification must include space for a 4-byte block header. The value for BLKSIZE 
must not exceed 32760 (decimal). 
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LRECL 


Specifies length, in number of 8-bit bytes, of the longest logical record expected. For V format records, the 

specification must include space for a 4-byte record header. The value for LRECL must not exceed 32756 for 
V format and 32760 for fixed (F) and unspecified (U) formats. LRECL must not exceed BLKSIZE tor all 

formats except VS and VBS. 


RECFM 


Describes the physical arrangement for records in blocks and in files. 


Fixed Format 


Every record is exactly LRECL bytes long. Each block contains exactly one record. 


F 


(or FS) 








i 


i 




Fixed Format 


■V 


integral number of records, 


Every record is exactly LRECL bytes long. Each block contains 
(or FSB) total block length must not exceed (BLKSIZE). 


an 


FB 


Block 


Logical 

Record 


Logical 

Record 


Logical 

Record 


LRECL- 


LRECL 




K 




: 






BLKSIZE 


BL 


-• 


-= 


X 




% 


=: 


“=l 
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Variable Format 


V 


Maximum record is LRECL-4 bytes, and is prefixed by a 4-byte record descriptor word RDW 
as follows: 


Record 


2 bytes of binary zero 


binary length of this record 


Each block contains exactly one record, prefixed by a block descriptor word BDW as follows: 


Block 


BLKSIZE 


BL 




RDW + Record 


2 bytes of binary zero 


binary length of this block 


This format is like V, except several records may occupy the block, not to exceed the total 


length < BLKSIZE. 


R ecorcl 







S indicates spanned. This mode makes best use of blocks for variable length records and allows 
writing of logical records exceeding BLKSIZE (however, the record length still must be 


VS 


LRECL < 32752). 


A record larger than the remaining block size ( > BLKSIZR-8, since both BDW and SDW are 
required) may be split into two or more blocks. Each record segment is prefixed by a segment 


descriptor word SDW of the following form: 


RL < RECL 


SDW 


c I 


Record Segment 


ri 


L 


^ 1 

ii 


L 


1 byte of binary zero 


binary length of this segment 


Segment 


Complete logical record; for code 0, the SDW is exactly an 


0 


First segment of a multi-segment logical record. 


1 


Last segment of a multi-segment logical record 


2 


Middle segment of a multi-segment logical record 


3 


Each block contains exactly one record segment, as in format V. 


block (as in VB). At 


This format is like VS, except several record segments may occupy 
most, one segment of a record may occur in a block. An attempt is made to fill the block 

to BLKSIZE, it may not be successful if remaining space is 4 bytes or less (at least one data 




VSB 


byte must be written): 


- 4 - 





Unspecified Format 


U 


Undefined length records. The record may be any non-zero length, up to LRECL. Each record 
occupies exactly one block. 


(or US) 


Block 




;; 


Record 




-H 


< LRECL 








< BLKSIZE 


IJB 


Undefined length, blocked records (not an IBM record format) included here to allow non- 
(or USB) standard record handling. Records may be any non-zero length up to LRECL, and LRECL 

may be less than BLKSIZE. Blocking and de-blocking is handled as follows: 






r- • 


Writing: The length of a converted record is examined for fit in the current block. If 
it fits, it is appended to the data already in the block. If not, the block is written out, 
and this record is used to start the next block 




* 




Reading: If at least LRECL characters remain in the current block, they are delivered 

to the user. If more than zero but fewer than LRECL characters remain, they are 
delivered to the user. 








Reading and writing are not parallel. In general, successive reads on a UB format file will not 
return the same records that were written. 
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BM DATA FORMATS 




CHARACTER DATA 


EBCDIC character codes are stored in IBM systems in 8-bit bytes. Bit numbers are assigned from high to low 
to each bit position within a byte. By IBM standard, the numbers assigned are EO through E7 


EO El E2 E3 E4 E5 E6 E7 


/ 


ASCII character codes are stored in IBM systems in 8-bit bytes. Bit numbers 1 to 8 are assigned to each bit 

position within a byte from low to high order. 




A8 A7 A6 A5 A4 A3 A2 A1 


NUMERIC DATA 


Eight-bit bytes are grouped in IBM systems to represent numeric data. A double byte (16 bits) is referred to 
as a half-word; 4 bytes comprise a whole-word (full-word); 8 bytes are a double-word. 


IBM System/360 uses four forms of numeric data: fixed-point binary, floating-point hexadecimal, packed deci¬ 
mal, and decimal signed numeric. 


FIXED-POINT BINARY 


Fixed-point values can be written in half-word, full-word, or double-word format consisting of a single sign bit 
followed by the binary field. On occasion, these formats are referred to as signed integer format. Negative 
values are represented in two’s complement form. 


2 bytes (16 bits) 


Half-word binary 
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4 bytes (32 bits) 


Full-word binary 




0 1 


=5 


8 bytes (64 bits) 


Double-word binary 


FLOATING-POINT HEXADECIMAL 




Floating-point data occupies short, long, and extended-precision formats. Each form uses the first bit as the 
sign of the fraction, the next 7 bits to represent a characteristic, and the remaining bits to represent the 
fraction expressed in hexadecimal digits. The value expressed is the product of the fraction and the number 

16 raised to the power of the exponent. 




Floating-point number — 4 bytes (32 bits) 


\ 


i 




t 




l 


Charac¬ 

teristic 


i 


Fraction (24 bits) 


L 


* 




31 




01 


7 


i 






8 bytes (64 bits) 


Long Floating point 








Charac¬ 

teristic 


Fraction (56 bits) 




7 


0 1 


16 bytes (128 bits) 


Extended-precision (or double) floating-point 


Charac¬ 
ter istic 


56 bits 


S 




high order part 


0 1 


7 




-F 4 


-F 


t * 


+ 4 


. P 4 


k 4 


F 1 
4 » 4 


► 4 


F 4 


a 


b 


a 


b 


P 4 

■ 4 


I- 4 


F 


b 


* « F ■ 
F P ► 


4*4 


► 


4 




b 


♦ 4 




P 4 


4 


* 


► 4 


4 


’ i * 
■f 4 


F ■ 


^ fc 4 
► 4 * 


F 


a 


4 




F 


b 


F 4 


a 


F 4 


4 


4 F I- 


4 


4 F 

F ■ 


* 4 


F 


P 4 




r 4 


P 4 


F 4 


56 bits 


b 


b 


4 F 4 
* P 4 


4* 4 

P 4 




4 


F 4 

F ♦ 


4 


F 4 


F 


* 4 


F ■ b 
► 4 
■ P 4 


F - 
F 4 


i 


F 4 


F ► 


P 4 
P 4 


4 


F 4 


F 4 




4 


■ 4 


1 


4 


F 4 


4 


F 4 


* 


F 


4 


F 


■ 4 


4 


► a 


4 


F 4 

► 4 


P 4* 4 


► 4 


► 4 




F 


4 


4 


+- 


F 4 
t 4 


■F 4 


* 


F 4 - 


F 


P 4 

F 4 


P 4 


4 


4 


F 4 


4 


■F 4 
F 4 

4 P 4 


b j 


F ■ 

4 b 4 






4* 4 
h 4 


b 


p 4 


F 4 


4 


4- 4 
F 4 


a 


F ■ F a 
F ■ P 


4 F 4 


b 


* 4 


► 4 


1 


4 


4 


t 4 


b 4 


F 4 


a 


t 


«* 


F 4 

■ * 


■- 




F 4 

■F 4 


4 


F 


F 4 




b 


P 4 


F 4 


b 


F 1 


” 


4 


* 


a 


t 




F 4 


4 


► 4 
► 4 


► * t 


* * 4 


4 fc 






4 


* 4 


4 


4 


t 


F a 


t 


p 4 * 


P 4 


► 4 


F 4- i 

■ 4 * ■ 


■ 


63 


7 


low order part 




unused 


- 


60359400 C 


C-2 







Normalization 


The greatest precision is achieved when a floating-point number is normalized. The fraction part of the floating¬ 
point number has a non-zero, high-order, hexadecimal digit produced by shifting the fraction left until the 

high-order, hexadecimal digit is non-zero and reducing the characteristic by the number of hexadecimal digits 
shifted. A zero fraction cannot be normalized. 


5^- 


•- 


Normalization applies to hexadecimal digits; thus the three high-order bits of a normalized number may be zero. 






\ 


PACKED DECIMAL 


r=*~V-^l 




Because decimal numbers may be expressed by four bits, it is possible to pack two 1-digit decimal values into 
one 8-bit byte. Variable length fields are used to contain packed decimal values; the rightmost 4 bits of the 
low-order byte of the field contain the sign of the value: 


•• 




high-order byte 


low-order byte 


\ 


'll 


j" 






i 










The EBCDIC sign code generated is 1101 for minus and 1100 for plus. 


i 


V 


V 


Packed decimal data is not the same as 8-bit character data and cannot be treated as such. 


DECIMAL SIGNED NUMERIC 






*1 




Also known as Zoned Decimal Number Format, this representation is required for character set sensitive I/O 
devices. A zoned format number carries its sign in the leftmost 4 bits of the low-order byte. The zoned format 

is not used in decimal arithmetic operations. 




n 


•t 
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CDC DATA FORMATS 


INTERNAL 6-BIT DISPLAY CODE 


Six-bit coded information is represented in the central memory unit of the CDC system in 6-bit bytes, 10 bytes 
in a 60-bit word. Within a byte, information is stored: 


5 4 3 2 1 0 


Within a word, 6-bit bytes are stored: 


12 


18 




24 




48 


30 


42 


36 


byte 


byte 


byte 


byte byte 


byte 


byte 


byte byte 


10 




8 


7 


2 






4 




INTERNAL 8-BIT DISPLAY CODE DATA 


The 8 bits in a string representing an ASCII code are numbered from left to right (A8 to Al) as follows: 


A8 A7 A6A5 A4 A3 A2 Al 


The 8 bits in a string which represent EBCDIC code are numbered from left to right (EO to E7) as follows: 


D-l 


60359400 A 













Eight-bit data codes are represented in central memory in 12-bit bytes, right adjusted in the byte as shown 
below: 






3 2 


5 4 


8 


7 




bit position 11 10 9 


character 


unused 


A8 A7 A6 A5 A4 A3 A2 A1 


ASCII bit number 


EO El E2 E3 E4 E5 E6 E7 


EBCDIC bit number 


bl b2 b3 b4 b5 b6 fc>7 b8 


CDC bit number 


The unused 4 bits are set to zero when the byte is stored in a word and ignored when the character code is 

used. 

Eight-bit data in ASCII or EBCDIC codes can be represented in central memory as 12-bit bytes, stored 5 bytes 

word. Character data must be aligned on the byte boundaries as shown in the following diagram: 


■■■ \ 
■■i 


to a 


ARITHMETIC DATA 


INTEGER 


Integer data is stored in a 60-bit central memory word in the following format: 




58 


I nteger 


Binary 

Point 


Sign (Elit 59) 


X 

\ 


The binary representation of the integer is right adjusted in the word. The sign is in bit 59, the binary point 
is at the right of bit 0. Negative numbers are represented in one’s complement notation. 


N 

\ 
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FLOATING POINT 


Floating point data is stored in either single precision or double precision format, as follows: 


Single Precision 


47 




Biased 

Exp 


Integer Coefficient 


Sign of Coefficient (Bit 59) 


Binary 

Point 


The binary point is considered to be to the right of the integer coefficient, therefore the 48-bit integer coeffi¬ 
cient is equivalent to a 14 digit (decimal) value. The sign of the coefficient is in bit 59. Negative numbers are 
carried in one’s complement notation. The 11-bit exponent carries a bias of 2^ (2000 octal),. As the coefficient 
is stored in unnormalized form, the bias is removed when the word is normalized for computation and restored 
when the word is returned to floating point format. 


Double Precision 


58 


47 




Biased 

Exp 


Integer Coefficient 


Sign of Coefficient (Bit 59) 


Binary 

Point 


Most Significant Half 


58 


47 


Biased 

Exp-48 


Integer Coefficient 


s 


Sign of Coefficient (Bit 59) 


Least Significant Half 


/ . 


In double precision format, two adjacent memory words (n and n+1) are used. The sign of the coefficient is 
carried in bit 59 of both words. The 96-bit integer coefficient is split, and the most significant 48 bits are 
stored in word n, the least significant 48 bits are in word n+1. The binary point is at the right of bit 0 in 
word n. Since the biased exponent of the least significant half of the coefficient is 48 less than the exponent 
of the most significant half, the two exponents are used to locate the true position of the binary point. If the 
exponent in word n represented 56, the exponent in word n+1 would be +8, indicating that the true position 

of the binary point is in the least significant half, 8 bits to the right of the biased exponent in word n+1. 

* • 

Conversely, if the exponent in word n represented 32, the exponent in word n+1 would be -16, indicating that 
the true position of the binary point is in the most significant half, 16 bits to the left of bit 0 in word n. 
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DISPLAY CODE NUMERIC SIGN OVERPUNCH 


A string of display code decimal digits form a display code sign overpunch number. The sign of the number is 
indicated by transforming the units digit (low order) of the number as follows: 


Corresponds to: 


Transformed to: 


Units Digit 


Value 


12-0 card punch 


0 


> 


Positive 


12-1 through 12-9 punch 


1 through 9 


A through I 


11-0 card punch 


0 


A 


11-1 through 11-9 punch 


J through R 


1 through 9 


The sign overpunch numeric is CDC COBOL-defined, and insertion of the plus sign into the units digit is not 
automatic; therefore, all undefined, signed and positive numbers appear to have the same format. In the A 
sign overpunch numeric, the 8-bit subroutines always will insert the plus sign into a positive value and trans¬ 
form the units digit. 


A 


m 


- M^V 


CARD FORMATS 


SCOPE 


All card input to the routines must be in free-form binary format. Card input files in fre e-form binary must be 
preceded and followed by flag cards as described below. Free-form binary cards may contain 80 columns of data. 
Each card column is a 12-bit entity. Input may be any bit representation, as input is free-form. The internal 
12-bit byte receives the card column bit pattern from each row, 12 through 9, left to right. This card represen¬ 
tation may be converted on input to 8-bit or 6-bit character format or it may be handled as a bit representation. 


Free-form binary cards do not contain sequence numbers or checksums. A card having 6/7/S/9 multipunch in 
column 1 and at least one punch in any other column can be read as a free-form binary card rather than as 
the end-of-file card it would normally be taken to be. 


Free-form binary cards must be set up in a special logical record (section) having the following format: The 
first card must have all 12 rows punched in both columns 1 and 2; the card must not contain any other punches. 
This flag card is not read as containing information; it signals that free-form binary cards follow. 


Any number of cards may follow; none may have the same form as the free-form flag card described above, and 
none may have the same form as a 6/7/8/9 end-of-file card. The free-form binary cards are read into memory 
in 16-word increments. The free-form binary card section must terminate with another flag card having 12 rows 
punched in columns 1 and 2. This card signals the end of the free-form binary deck, and indicates that standard 

binary or Hollerith cards will follow. 


If it is necessary for a free-form binary card with the same appearance of the flag card to appear in the deck, 
a flag card may be created in a slightly different form. Any card having punches in all 12 rows in column 1 
and all 12 rows in any other column, with no other punches on the card, is recognized as a free-form flag; 
therefore, 79 variations are possible. 




* *-**- 


Free-form binary cards are produced when the disposition code for the output punch file is P8 (octal 0014). 
A standard end-of-record card will be produced by the operating system following the last free-form binary 
card. The flag cards are not punched as part of the output. 


KRONOS 


CARD INPUT 


The KRONOS system reads cards in coded and binary formats; the following conditions apply in both formats. 


Card with 7/8/9 in column 1 is an EOR mark. 


Card with 6/7/9 in column 1 is an EOF mark. 


Card with 6/7/8/9 in column 1 is an EOl mark. 


In each instance, the remainder of the card is ignored. 
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CODED CARDS 


Cards are read in Hollerith punch code. The 3447 card reader controller converts the Hollerith code in internal 
BCD code and passes the data to the card reader driver. The driver converts the data from internal BCD code 
to display code. Up to 80 characters can be transferred per card. Trailing spaces are deleted. 

Several conversion modes exist for the Hollerith punch code and all data is converted in 026 mode unless a 
conversion mode change is specified. The data conversion mode is changed when a card containin 
punch in column 1 is encountered. The conversion mode is punched in column 2. The conversion change 

remains in effect until another change card is read or the end of job is reached. 

Literal input allows absolute binary data to be read while input is transmitted in coded mode. Cards are read 
(16 central memory words per card) until a card identical to a conversion card is read (5/7/9 in column 1 
and 4/5/6/7/S/9 in column 2). The next card then can be the conversion mode. 

The following conversion codes can be specified in column 2; these codes cannot be used with a 200 user 

terminal: 


a 5/7/9 


Description 


Mode 


Column 2 


Character set equivalent in appendix A 
Character set equivalent in appendix A 
Character set equivalent in appendix A 
Character set equivalent in appexdix A 
Card contains literal input 


026 


Blank 


FORTRAN 029 


9 


COBOL 029 


8 


SNOBOL 029 


8/9 


Literal, input 


475/6/7/8/9 


BINARY CARDS 

Binary cards, denoted by a 7/9 punch in column 1, can contain up to 15 central memory words. The 3447 
card reader controller reads the binary data and passes it to the card reader driver in 12-bit codes. Each card 
column row corresponds to a bit position. The driver checks the checksum figure when this option is specified. 

The driver then passes the data to the ccentral memory buffer. 

Binary card fields are: 


Description 


Colums 


7/9 punch indicates a binary card 
4 punch ignores checksum punch in column 2 

Rows 0, 1,2, and 3 contain the biary equivalent of the word count of the card 

Binary data checksum (modulo 4095) 

15 central memory words of binary data 

Blank 

24-bit binary card sequence number 


1 


2 


3 through 77 


78 


79 and 80 
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SUMMARY 


The punches in card colum 1 are interpreted as follows by the card reader driver. 


Punch 


Respresents 




7/8/9 
6/7/9 
6/1/S/9 
5/7/9 


End of record 


End of file 


End of information 
Change code coversion 
Binary card 
Coded card 


L^" 


7/9 


Not 7 and 9 




CARD OUTPUT 


KRONOS punched cards can be in three formats. 


Coded (punch Hollerith) 


Binary 


Absolute binary 


The following conditions apply to all three formats. 


When an EOR is encountered, a card is punched with 7/8/9 in columns 1 and 80.f This card is offset. 


When an EOF is encountered, a card is punched with 6/7/9 in columns 1 and 80; the remainder of the 
card is blank.f This card is offset. 


When an EOI is encountered, a card is punched with 6/7/8/9 in columns 1 and 80; the remainder of 
the card is blank.f This card is offset. 


The blank card preceding the deck is offset; when the card leaves the card punch, it is shifted so that 
it protrudes from the deck. 


If a compare error is encountered, the erroneous card and the following card are offset. These two cards 
are repunched until no error is detected. An EOI card with 6/7/8/9 punches in columns 1 and 80 contains, 
in column 40, a binary count of the number of compare errors. 




The system uses the following methods to punch the three card forms. 


fThis card cannot be submitted from a 200 user terminal. 
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CODED CARDS PUNCH) 




Data is retrieved from central memory until 140 characters are obtained or an end-of-line (a zero byte) is 
sensed. Only the first 80 characters of the line are punched, however, remaining data is lost. The data is con¬ 
verted from display code to internal BCD, 026 fonnat (refer to appendix A for character set equivalences) by 
the card punch driver and passed to the 3446 card punch controller. The controller converts the internal BCD 

code to Hollerith punch code. 


BINARY CARDS (PUNCHB) 


The card punch driver retrieves 15 words of binary data from central memory. The driver generates a checksum 
for the data and issues a card number. The card punch controller receives the binary data and punches it on 
the card unchanged, in 12-bit codes. Each row in a card column corresponds to a bit position. The driver formats 
the binary card in the following manner. 


Columns 


Contents 


\ 


7/9 punch denotes binary card 

Rows 0, 1,2, and 3 contain the binary equivalent of the word count of the card 
Binary data checksum (modulo 4095) 

15 central memory words of binary data 


1 


s 


\ 


2 




* 


i 


3 through 77 




i 






i 


1 




Blank 


78 


4 


24-bit binary card sequence number 


79 and 80 


1 


I 






N 


ABSOLUTE BINARY CARDS (P8) 


Absolute binary cards are central memory images in 12-bit codes. Each row in a card column corresponds to 
bit postion; 16 central memory words are punched per card with no special punches or fields added. 






*5. 


X 




H 


\ 




-i 




% 
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f PRINT FORMAT - CDC 


6 PRINT TRAIN 




Information may be printed from the 6-bit Display Code format on any available printer; 8-bit data in the 

internal 12-bit format (leftmost 4 bits unused) must be converted to ASCII format and output to a CDC 512 

Line Printer using a CDC 595-6 Print Train having the full ASCII graphic set of 95 characters. The ASCII 
character set appears on page 5-4. 


For printing upper and lowercase data using the CDC 595-6 Print Train, the following conventions apply. Each 
print line consists of up to 137 12-bit characters, in ASCII code (identical to internal data type A). A 
mum of 137 characters can be specified for a line, but no more than 136 will be printed. The character in 

position 1 is interpreted as a carriage control code. The leftmost 4 bits of each 12-bit ASCII character must be 

. Values out- 


maxi- 


zero. Legal hexadecimal values for print characters range from 20 through 7E, space through 
side this range cause an error condition. Refer to appendix F of the SCOPE 3.4 Reference Manual. 


The entire file must be in the above format (12-bit characters) if disposition code PE is to be used. Such files 
must be assigned to a CDC 512 Line Printer with disposition code PE and must adhere to specific format rules 

as follows: 


All characters must be in ASCII. 


1 . 




2 . 


The end of a print line must be indicated by a zero byte in the lower 12 bits of the last central 
memory word of the line. Any other unused characters in the last word should be filled with zeros. 
No line should be longer than 137 characters. 


i 


Each line must start in the upper 12 bits of a central memory word. 


3. 


The first character of a line is the carriage control, which specifies spacing as shown in the following 
table. It will never be printed, and the second character in the line will appear in the first position. 
A maximum of 137 characters can be specified for a line, but only 136 characters will be printed. 


4. 


When FMT 

with column 2. Thus, only 136 characters are available in the print line. 


1, 2, or 3, XWRITE presets column 


to blank, zero, or minus respectively; the record starts 




fThis appendix is not applicable to KRONOS. 
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CARRIAGE CONTROL CHARACTERS 


Action Before 
Printing 


Action After Printing 


Character 


Skip to top of next pagef 
Skip to last line of pagef 
Skip to channel 6 
Skip to channel 5 
Skip to channel 4 
Skip to channel 3 
Skip to channel 2 
Skip to channel 11 
Skip to channel 7 
Skip to channel 8 
Skip to channel 9 
Skip to channel 10 

No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 
No space 


Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 
Space 1 

Space 1 

Skip to last line on pagef 
Skip to last line on page 
Skip to channel 6 
Skip to channel 5 
Skip to channel 4 
Skip to channel 3 
Skip to channel 2 
Skip to channel 11 
Skip' to channel 7 
Skip to channel 8 
Skip to channel 9 
Skip to channel 10 
No space 
Space 2 
Space 3 

Space 1 


A 


B 


C 


D 




F 


G 


H 




J 


K 


L 


1 


2 


3 


4 


5 


6 


7 


8 


9 


X 


Y 


Z 


+ 


0(zero) 

- (minus) 
blank 


fThe top of a page is indicated by a punch in channel 1 of the carriage control tape for the CDC 512 
Line Printer. The bottom of page is channel 12. 
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When the following characters are used for carriage control, no printing takes place. The remainder of the line 
is ignored. 




/ 


Clears auto page eject 


Q 




r 


1 


Selects auto page eject 




Clears 8 vertical lines per inch 




Selects 8 vertical lines per inch 


T 


Outputs remainder of line (up to 30 characters) on the B display and the dayfile and 
waits for the operator to type in the JANUS command /OKuu. n.GO allows the 
operator to change forms or carriage control tapes. 


PM (col 1-2) 


Acts as a blank 


any other 


i* 


Any pre-print skip operation of 1, 2, or 3 lines following a post-skip operation will be reduced to 0, 1, or 2 
lines. 


The S and T functions should be used only at the top of a page. In other positions, S and T can interfere with 
the stated spacing. Q and R need not be used at the top of a page, as each will cause a page eject before per¬ 
forming its function. 












/ 
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DIAGNOSTIC MESSAGES 


r 


1 - - V 


Every diagnostic message generated by the 8-bit subroutines is printed in the dayfile and, where possible, in the 
job OUTPUT file as well. When the call appears to be from a FORTRAN Extended or COBOL program, appro- 

d 

priate traceback information is attempted. The format of the diagnostic message is as follows: 


message 


cause 


Name of the subroutine which detected the error 


xname 


Probable cause of the error 


Diagnostic message as listed in this appendix 


message 


A typical set of error messages occurring in a FORTRAN Extended program is shown below, including appro¬ 
priate traceback information, which gives the calling routine name and the source program line number. 


r 


PARAMETER-FILE NOT DECLARED 
AT LINE 


ERROR DETECTED 3Y XFILE 

CALLED FROM BJC8S8 


7 


PARAMETER-FILE NOT SPECIFIED AS WRITE MODE 
AT LINE 


ERROR DETECTED BY XWRI.TE 

CALLEO FROM BJC8SB 


12 


PARAMETER-UNRECOGNIZED MOVE-COMPARE TYPE 
AT LINE 


ERROR DETECTED BY XMOVE 

CALLED FROM BJC8SB 


38 


UNRECOVERABLE ERROR CN WRITE FILE 


ERROR DETECTED BY XWRI7E 

CALLEO FROM BJC8S8 


1-0 


AT LINE 


33 


a' 




f 


r' 


A 


j • • 


t * 


J 


/ 


G-l 
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OFFSET IN PARAMETER DESCRIPTOR 




i 


r zT* 






A- 


BAD SYNTAX IN 2. S 


N 


OR P FIELD 




* 

1 








BIT SPECIFICATION ILLEGAL FOR NON BIT FIELD 


w in i/w item 


BLKSIZE EXCEEDS 32760 BYTES 


BLKSIZE parameter in the XFILE call is too big 


BLKSIZE NOT SPECIFIED 


BLOCK SHORTER THAN V-HEAD Hi 


Block descriptor word contents or 

with actual block/record 


Input IBM record is in wrong format 
record descriptor word contents do 
size. 


CONVERSION STRINGS NESTED TOO DEEPLY 


May be nested only to depth of seven levels 


DOUBLY SPECIFIED PARAMETER IN FILE STRING 


Duplicate parameter 


EMPTY BLOCK IN VS-RECORD 


No data in input block 


FIELD EXTENDS PAST END OF RECORD 


5! 


the recor 


FILE NOT DECLARED 


in the XFILE call 


# 




number 


wrong 


declaration on FTN program card 


FILE NOT SPECIFIED AS READ MODE 


USE parameter in the XFILE call has not been specified as R 


G-2 



FILE NOT SPECIFIED AS WRITE MODE 


USE parameter in the XFILE call has not been specified as W 


FILE PARAMETER IS NOT A FILE NAME 


misspelled in an XFILE call or does not appear in a COBOL 


name 


FILE STRING DOES NOT BEGIN WITH 




in the XFILE call always must begin with a left 


FILE STRING NOT TERMINATED WITH -) 


in the XFILE call always must be terminated with a 


right parenthesis. 






TYPE NOT 


the file-string parameter in an XFILE call has been 


omitted. 


i->“'— 


FILE USAGE NOT SPECIFIED 


USE specification in the file-string parameter in an XFILE call has been 
omitted. 


FIRST CHARACTER OF CONVERSION-STRING IS NOT -( 


Conversion strings always must begin with a left parenthesis. 


FIRST ITEM IN SELECTOR-EXPRESSION NOT RECOGNIZED 


The iTm 

Table 2-1. 


in 


ILLEGAL FIRST ITEM TYPE 


T in the Tml field is specified incorrectly. See Table 2-1 


ILLEGAL LENGTH PARAMETER DESCRIPTION 


Length parameters in COBOL must be declared as COMPUTATIONAL-1, 


ILLEGAL SECOND ITEM TYPE 


See Table 2^1 

9 


INCOMPLETE VS-RECORD AT END-OF-DATA 


Length specified in 


missing from input 
information of the last record does not agree with actual length. 
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INCONSISTENT PARAMETERS IN FILE STRING 


INDEFINITE SOURCE VALUE NOT REPRESENTABLE 


Floating-point source item has indefinite value 


INDEFINITE VALUE FOR INTEGER DESTINATION FIELD 


Item to be stored in integer destination field has indefinite value 


INFINITE SOURCE VALUE NOT REPRESENTABLE 


Floating-point source item has infinite value 


INFINITE VALUE FOR INTEGER DESTINATION FIELD 


Item to be stored in integer destination field has infinite value 




v 


INTEGER VALUE TOO LARGE FOR FIELD 


Receiving field does not contain enough characters to represent all digits 






in the source field 


INVALID DATA TIPE 


C for EBCDIC, and X for Display Code. 


Legal data types are A for ASCII 

INVALID PARAMETER VALUE IN FILE STRING 




See file-string parameters under XFILE discussion 


IN FILE STRING 


KEYWORD NOT FOLLOWED BY 


See file-string parameters under XFILE discussion 


LITERAL STRING IS TOO LONG 




LRECL NOT 


was omitted 


LRECL TOO SMALL FOR V-RECORD HEADER 


with length specified in record 


not 


descriptor word (RDM). 


LRECL TOO LARGE FOR BLKSIZE 

If the blocking type is not scanned 


LRECL must be less than BLKSIZE 
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M SPECIFICATION ILLEGAL FOR DATA TYPE 


the m in Tml or Tm2 is incorrectly 


MISSING LENGTH PARAMETER 




missing from FTN or COMPASS call to XPACK, XPAND 


41 


4 


U 




or XCOMP• 


XMOVE 




MISSING PARAMETER LIST 




/ 


i 


i 


MISSING RELATIONAL OPERATOR IN SELECTOR-EXPRESSION 






/ 


MISSING RIGHT PARENTHESIS 


String parameter always must end with a right parenthesis 




/ 


MISSING RIGHT PARENTHESIS OR SEMICOLON 


* 


Missing punctuation in conversion string 


MISSING RIGHT STRING DELIMITER 


Literal string terminator * or $ is missing- 


MISSING SEPARATOR AFTER CONVERSION ITEM 


semicolon, or right 


Conversion item must be followed by a comma 
parenthesis, depending upon circumstances. 






MISSING SOURCE—fl PARAMETER 


Calling sequence parameter list is incomplete 










1. 


MISSING SOURCE-2 OR DESTINATION PARAMETER 


Parameter list in calling sequence is incomplete. 


s 


i 


i 


MISSING STRING DELIMITER 


* ■» 


JF 


Missing * or $ in a literal string 


MORE DATA AFTER RECORD IN V-UNBLOCKED FILE 




in input 


record length 


descriptor word <RDW) 


MORE DATA AFTER VS-RECORD SEGMENT 


record length in the input file exceeds that specified in 


Actual segment 
the segment descriptor word (SDW) 


G-5 
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NC FILE STRING GIVEN 


NC PARAMETERS 


NC PARAMETERS SUPPLIED TO SUBROUTINE 


NC STATUS PARAMETER 


NC WORKING STORAGE AREA PROVIDED 


Workspace parameter in XFILE calling sequence is required. 


NUMERIC LITERAL EXPONENT .GE. 512 


Exponent value may not exceed 511 


NUMERIC LITERAL OUT OF RANGE (INFINITE) 


Numeric literal has infinite value 


PARAMETER IS NOT A DATA ITEM 


A literal was supplied for a data-name item in COBOL. 


RECFM NOT SPECIFIED 


file-string of an XFILE calling 


omitted from the 


RELATIONAL OPERATOR NOT RECOGNIZED 


Illegal relationship mnemonic specified in a selector expression 


SECOND SELECTOR-EXPRESSION ITEM NOT RECOGNIZED 


The second 


SELECTOR-EXPRESSION NOT TERMINATED BY COLON 


SIZE PARAMETER NOT NUMERIC TYPE 


the size parameter must be described 


In a COBOL calling sequence to XFILE 




as numeric. 
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SOURCE CHARACTER NOT 0 OR 1 


TO BIT STRING 




a character-to-bit conversion-item 


In 


the source character may be only 0 




SOURCE EXPONENT TOO LARGE# NOT REPRESENTABLE 


See Table 2-4 for limits• 


oTATUS RETURN NOT COMP-2 


COBOL calling sequence 


In a 

COMPUTATIONAL-2 item 




STRING NOT IN NUMERIC SYNTACTIC FORM 


The character string does not fit the format described in rule 13 of Table 


2-4 


STRING RELATION IS NOT .EQ 


or .NE 


Only the relationships . EQ. or .NE. are legal for string value fields in 


(i 


SYNTAX* • NO DIGIT AFTER -E- IN NUMERIC LITERAL 


Numeric literals in value 
numeric literal definition appearing under Value Field in section 2 

TEST FIELD EXTENDS PAST END OF RECORD 


of selector expressions must fit the 


The 

record but extends beyond its logical length. 


field 


TEST FIELD NOT IN RECORD# ON LEFT 


The 


in a 




character preceding the first one in the logical record 


TEST FIELD NOT IN RECORD, ON RIGHT 


The 






character beyond the last one in the logical record. 


TOO MANY 


IGI 


IN Z. S, N# OR P FIELD 




OVERFLOW 


r 


The magnitude 


of the number to be stored in the field exceeds the number 


TOO MANY PARAMETERS 


Extraneous parameters appear in the calling sequence. 
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UNRECOGNIZED CODE SET SPECIFIED 


al co 


t 


i 


r 


r 










Ir. 








UNRECOGNIZED KEYWORD IN FILE STRING 


A file string parameter in an XFILE call is misspelled 


UNRECOGNIZED MOVE-COMPARE TYPE 


The xy parameter is incorrectly specified 


UNRECOVERABLE ERROR ON WRITE FILE 


V-BLOCK HAS SHORT RECORD FRAGMENT 


in 


than that 


The 

descriptor word (RDW). 


V-RECORD LENGTH EXCEEDS BLOCK SIZE 


V-RECORD LENGTH LESS THAN 4 BYTES 


for the record descriptor word 


Variable records must contain 4 bytes 

(RDW) . 




VALUE TOO LARGE FOR FIELD WIDTH 


too many digits and/or symbols for the receiving 


• % 


Numeric value contains 

field. 




<• 1 




\ 


VS-RECORD FINAL SEGMENT MISSING 


The final segment of a variable spanned logical record is missing from the 


input file 




s r, 


i 


VS-RECORD FOUND IN TYPE V FILE 


s 


segment descriptor word (SDW) was found in a file that was npt. spanned* 


V. 






VS-RECORD INITIAL SEGMENT MISSING 

segment of a spanned logical record is missing from the input 




\ 




The 


I 




WORKING STORAGE AREA TOO SMALL 


= 


the XFILE call is too small. 








\ 


L 




WSA NOT ALIGNED ON WORD BOUNDARY 


COBOL calling sequence to XFILE must have a 


The 


beginning character position of 0* 
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8-BIT SUBROUTINES/FORM COMPARISON 




The primary difference between FORM and 8-Bit Subroutines is that 8-bit subroutines have the capability of 
maintaining 8-bit significance in converted data; FORM does not have this capability. Other differences include 
conversion capabilities, management of print files, ease of usage, and minor functional differences. 


No provision is made in FORM for maintaining IBM lower case characters or other characters not included in 
the CDC 64-character set. FORM folds any lower case character to its upper case equivalent. The 8-bit subrou¬ 
tines handle data in such formats as 8-bit ASCII, 8-bit EBCDIC, internal packed (7 characters per word) and 
unpacked (5 characters per word). Utility subroutines XMOVE, XPACK, XPAND, and XCOMP are available for 
processing the internal 8-bit fields. 


Conversion capabilities differ slightly between FORM and the 8-bit subroutines. FORM cannot convert IBM 
360/370 decimal signed numeric (zoned decimal) data or 128-bit, extended precision, floating-point data to 
CDC format; the 8-bit subroutines can perform such conversions. FORM has an automatic data field reformat¬ 
ting capability (REF) that allows the user to reorder data fields and insert literals; in 8-bit subroutines, data 
fields in a record are reformatted sequentially only. The conversion string syntax in 8-bit subroutines is more 
powerful than the FORM search and item descriptors. Nested conversion strings allow the user to reformat all 
or part of the record in one of several ways, depending on key fields within the record. Nested conversion 
strings are permitted in 8-bit subroutine calls; FORM does not permit them. Conversion strings may be changed 
from record to record within a file at will when using 8-bit subroutines; whereas, FORM record specifications 
are set once per output file and may be varied from record to record only by comparing a record field to a 
literal quantity. This comparison is accomplished through the IDS parameter in the INF directive in conjunction 

with the RID parameter in the CON directive. FORM is primarily file-oriented and can be used to process 
random files; the 8-bit subroutines are primarily record-oriented and their use is restricted to sequential files. 


Print files are handled differently by FORM than by the 8-bit subroutines. FORM allows automatic organization 
of print file functions such as paging, line spacing, and titling, through the PRT directive. Also, FORM print 
files can contain only CDC display code characters. Print files processed by 8-bit subroutines must be organized 
by the user, but any character in the 95 graphic ASCII set may be used. A utility program, COPY8P, is pro¬ 
vided in the 8-bit subroutines to print automatically IBM 360/370 print files using the CDC 595-6 Print Train. 


Other minor functional differences between FORM and the 8-bit subroutines include: 


FORM provides automatic sequencing of records through the SEQ directive; the 8-bit subroutines have 
no such provision. 


FORM will process non-standard tape labels automatically using the NON directive. In the 8-bit subroutines, 
the calling program must process the labels. 


The 8-bit subroutines will process IBM 360/370 card files as free-form binary input and output; FORM 

will not. 


H-l 
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Arithmetic 


Arithmetic Data Formats 


D~ 2 


ASCII 


ASCII Format 1-1 
ASCII Character Set A-3 
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A- 5 . A- 7 






Binary 

Binary Data Conversion 2-13 
Free-Form Binary Card Format E-l 
BLKSIZE 




BLKSIZE Parameter 3-4 


c: 


i 






Block 


IBM Tape File Record and Block Format B-l 




Card 


Free-Form Binary Card Format E-l 
Card Files 6-2, 6-4 

DISPOSE Card 5-2, 6-2, 6-3 

FILE Card 6-3 
LDSET Card 6-4, 6-5 

REQUEST Card 6-1 

KRONOS Card Input 
KRONOS Card Output 


%•- 


■V 




■ t 


E-l 


E- 3 


CDC 


CDC COBOL Data Formats 7-4 

CDC COBOL Tm Values 7-5 

Sample CDC COBOL Job 7-15 

CDC FORTRAN Constants and Variables 8-3 

CDC FORTRAN Tm Values 8-4 

Sample CDC FORTRAN Job 8-4 

CDC FORTRAN Data Formats 8-3. D-l 

CDC Floating-Point Data D-3 

CDC Integer Data D-2 
Conversion 

Character 








IBM to CDC Files 


7-6 


r^‘‘ , rr- ^ 


ASCII Character Set A-3 
Character Skipping 2-12 

C0PY8P Character Set Restrictions 5-3 
EBCDIC Character Set A-6 
Character Folding 2-7 
Carriage Control Characters F-2 


A-5 


A-7 






A- 7 




A- 7 




COBOL 


• 


CDC COBOL Data Formats 7-4 
CDC COBOL Tm Values 7-5 
Sample CDC COBOL Job 7-15 

COBOL Examples 3-12, 3-15, 4-11, 4-14. 4-17. 7-6 

COBOL Usage 7-1 

IBM COBOL Tm Values 7-3 
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Code 


D-l 


Internal Display Code Format 
Collating 

Collating Sequence 

Comparison 

Comparison Modes 
Comparison Examples 

XCOMP 

8-Bit Subroutines / FORM Comparison 


A-4 


4-5. A-3 






2-16 




4-5 


4-1 


String Comparison Subroutine 


H-l 


COMPASS 

COMPASS Examples 3-18, 4-7, 4-12 

Constants 

CDC FORTRAN Constants and Variables 

IBM FORTRAN Constants and Variables 

* 

Control 

Carriage Control Characters 
Q Conversion Control Specification 

Conversion 

Binary Data Conversion 
Q Conversion Control Specification 

Data Format Conversion 2-1 
Data Conversion String Syntax 
Conversion Items 
Sample Item Conversion 

Conversion Specifications 
Conversion Strings 2-9 
Conversion String Punctuation 

Nested Conversion Strings 
Special Conversion Rules 
Integer Data Conversion 
Floating-Point Data Conversion 

Conversion Tm Tables 
Default Conversions 
Conversion Rules 
C0PY8P Print Conversion Tables 

Conversion 

. • 

Conversion Strings Used as 
Hexadecimal / Octal Conversion 


4-17 


4-15 






8 


T 


o 
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N 


2-5 


- \ 

# . 




2-13 


2-5 


% 


2-13 




2-2 


2-2 


2-3 


2-8 


2-9 


\ 


2-10 

2-12 

2-13 


2-13 


2-14 

2-15 


2-17 


% 


5-4 
7-6 

Conversion Items 

A - 8 


IBM to CDC Files 


2-5 


■-V 




•\ 

K 


COPY8P 


5-3 


C0PY8P Character Set Restrictions 

a * 

COPY8P Print Conversion Tables 


5-4 


\ 


COPY8P Program 5-1 
C0PY8P Options 5-1 


. 

L 


.Data 


Arithmetic Data Formats D-2 
Binary Data Conversion 

CDC COBOL Data Formats 7-4 
CDC FORTRAN Data Formats 8-3 

Data Format Conversion 2-1 
Data Conversion String Syntax 
Integer Data Conversion 
Floating-Point Data Conversion 


2-13 


■ T-.t. 




D-l 




2-13 




\ 


2-2 


2-13 


2-13 
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IBM Data Formats 

IBM Floating-Point Hexadecimal Data 

CDC Floating-Point Data 
IBM FORTRAN Data Formats 


8-1 




C - 2 


D-3 


8-1 


D-2 


CDC Integer Data 
Representation of 8-Bit Data 
Representation of 6-Bit Data 

De fault 


D-l 


D-l 


D-2 




Default Conversions 2-15 
Default Tm Values 2-15 
Diagnostic 

Diagnostic Error Messages G-l 
Display 

Display Code Numeric Sign Overpunch D-4 
Internal Display Code Format D-l 
DISPOSE 

DISPOSE Card 5-2. 6-2. 6-3 












EBCDIC 


■ ;r -. 


D-l 
A- 7 


EBCDIC Format 1-1, C-l 
EBCDIC Character Set A-6 






Error 


( J ~ 1 


Diagnostic Error Messages 
Error Handling 
Examples 

COBOL Examples 
Comparison Examples 
COMP ASS Ex amp1e s 
FORTRAN Examples 
Selector Expression Examples 
Input/Output Examples 

Move Examples 
Expand Examples 
Pack Examples 


3-12 


7-6 


4-17 


4-14 


4-11 


3-15 


3-12 












4-5 


4-17 

4-17 


4-15 

4-14 


4-12 

4-11 


3-18 

3-17 


4-7 










8-4 


4-6 












2-7 


3-18 


3-17 


3-12 






4-11 

4-17 




4-14 


Expand 


4-17 


Expand Examples 
Expression 

Selector Expression Examples 
Selector Expression Relationships 
Selector Expression Value Field 




2-7 


2-7 


2-6 


Field 


2-1 


Field Alignment 
Selector Expression Value Field 


2-6 


File 


IBM Tape File Record and Block Format 

File Name Parameter 3-1 
FILE Card 6-3 
XFILE 


B-l 


3-2 


File Definition Subroutine 


3-5 

Forcing Termination of File Output 3-7 


File Usage 


Files 


6-4 


Card Files 


6-2 




Print Files 


6-2 


-i-i 


Index-3 
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Record Manager Print Files 

Record Manager Tape Files 


6-3 


6-1 


IBM to CDC Files 7-6 


Conversion 

File-Strin 

File-String Parameters 3-3 
Floating-Point 

Floating-Point Data Conversion 
IBM Floating-Point Hexadecimal Data 
CDC Floating-Point Data D-3 


2-13 


C-2 


FMT 


3-4 


5-3 


FMT Parameter 




FOLD 


FOLD Parameter 5-2 
Folding 

Cha r a c t e r Folding 
Forcing 

Forcing Termination of File Output 3-7 


2-7. A- 7 




FORM 


H-l 


8-Bit Subroutines / FORM Comparison 


Format 


ASCII Format 1-1, D-l, G-l 
Free-Form Binary Card Format E-l 
IBM Tape File 

Data Format Conversion 2-1 
EBCDIC Format 1-1, C-l, D-l 
565-6 Print Tra*i.n Format G-l 
Internal Display Code Format 

Formats 

Arithmetic Data Formats D-2 
CDC COBOL Data Formats 7-4 
CDC FORTRAN Data Formats 8-3, D-l 
IBM Data Formats 8-1, C-l 
IBM FORTRAN Data Formats 8-1 

FO RT RAN 

CDC FORTRAN Constants and Variables 8-3 
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